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EDITORIAL 


D es événements importants vont marquer l'année 1986. Non, nous ne faisons aucune 
allusion au mois de mars et à ses élections, mais surtout à tout ce qui touchera 
au monde de la micro-informatique familiale, toujours en pleine ébullition. 

Le point fort de cette année sera vraisemblablement, pour nos "ORICIENS", la sortie 
du TELESTRAT, annoncé au début du mois de janvier. Un nouvel ORIC qui, sans être 
pour autant révolutionnaire, ouvre un concept nouveau : celui du mariage de la micro- 
informatique et de la télématique. 

Souhaitons que cette année, si bien commencée, continue sur sa lancée et apporte à 
notre machine tout le logiciel dont elle a besoin pour rivaliser avec les autres produits 
du marché. 

A tous nos lecteurs, abonnés ou occasionnels, nous présentons nos meilleurs vœux pour 
l'année 1986. 


SON VIDÉO 

2000 

MICRO 
AQUITAINE 

AMSTRAD 

THOMSON ** 

commodore 

31, cours de l'Yser 
33800 BORDEAUX 

Tél.: 56.92.91.78 



COMMANDE ANCIENS NUMEROS 
(valable jusqu'à épuisement des stocks) 

Numéro 3 . 20 F pièce 

Numéros suivants.30 F pièce 

Numéro 11 (Hors Série).25 F pièce 

ATTENTION : NUMERO(S) EPUISE(S) : 1 - 2 - 5 - 8 - 13 
NOM .Prénom . 

Adresse . 

Code Postal .Ville . 


Frais de port 


6.50 F jusqu'à 2 exemplaires 

9.50 F jusqu'à 4 exemplaires 
13,50 F jusqu'à 6 exemplaires 


Ci-joint, chèque bancaire ou postal de 


F. 
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Imprimante seikosha GP 500A 

50 caractères par seconde 80 colonnes papier 
informatique permet l'édition de textes et gra 
phtsmes de qualité correcte pour un prix raison 
nable. La plus répandue en informatique familiale 

□ imprimante SEIKOSHA GP500A 2680 F 


MODEM 

Votre ORIC s'ouvre sur l'extérieur II "discute" 
avec ses semblables et accède au réseau "minitel". 
Fourni avec interface intégrée et logiciel 
□ modem_ 1490 F 




Interface tout jeux 
Grlct è cet interface programmable vous utili¬ 
serez vos joysticks avec tous vos logiciels de jeux 
C interface tous jeux __-__425 F 




Rallonge Péritel 

Ne soyez plus "collé" à l'écran ! 
□ rallonge- 


80 F 


AMPLIBUS JASMIN 

Amplifie les signaux du bus permettant ainsi la 
connexion de 3 interfaces 
□ ampli bus 350 F 


m 


\ 


j 


Interrupteur 
Ne courrez plus le risque de faire sauter la ROM 

□ interrupteur d'alimentation_80 F 

Synthétiseur vocal 

Enfin votre One peut s'exprimer ! Anglais d'origine 
il gardera son accent mais, grâce â un programme 
basic. vous dira "boniour", "gagné" ou vous 
apprendra l'anglais ou l'allemand 

□ synthétiseur vocal 

(avec câble connexion)-550 F 

_485 F 



Joystick TIRVITT 

Le "MUST" en matière de joystick ! 8 directions, 
contact par micro contact, robuste, élégant, précis 
il ne vous décevra pas. garanti 1 an. compati 
ble standard ATARI et MSX 
□ joystick TIRVITT. 140 F 
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□ quiekshot2 . 140 F 



Imprimante MCP 40 

L'imprimante 4 couleurs aux couleurs d'ORIC ! 
□ imprimante MCP 40_ 990 F 




JASMIN 2 

Le lecteur de disquette que votre Oric préfère 
Permet, entre autres, de recopier sur disquettes 
les logiciels (même plombés) sur cassette 


l'ensemble 

3490 F 


□ lecteur doubletète 



2690 F 


LOGICIELS CASSETTE 



sur une cassette 


□ R V terreur . 


□ cité maudite 


□ saga 


□ 1815 


□ polyfichiers 


□ intex et zoé. 

□ le retour du dr gémus.160 F 

□ citadelle .120 F 

□ diamant île maudite.180 F 

□ aigle d'or .180 F 

□ crocky.120 F 

LIVRES 

□ manuel de référence.138 F 

□ le découverte de l’oric. 95 F 

□ oric à TaHiche . 95 F 

□ oric atmos pour tous ... .105 F 

U clefs pour ORIC .105 F 

□ cahier du basic sur ORIC . 65 F 

□ assembleur ORIC ATMOS 95 F 

□ 102 prog. pour ORIC.120 F 

□ programmes en lang. mach. 95 F 

□ pratique de l’oric atmos.100 F 

□ 6502 programma en assembleur ..215F 

□ jeux graphiques ou Atmos . 95 F 

□ applications du 6502 . 105 F 

□ logo (loriciel). 295 F 



Imprimante Smith Corona Fastext 80 
80 caractVsec. impression bidirectionnelle, 
entrainement par friction, interf contronic. buffer 
intégré, écriture normale ou condensée 

□ Fastext 80 . 1995 F 

Branchement ordinateur/magnétoscope 
Grâce â cette interface laissez brancher en per¬ 
manence votre ordinateur et votre magnétoscope 
Prévoir une alimentation 12 V 

□ interface ordi/magnétosc..345 F 



□ hu'bert 

.120 

( 

□ 30 munch 

140 

_150 F 

□ super jeep. 

120 


□doggy 

120 


□ orthocrack vol 1 . 

160 


□ orthocrack vol 2. 

160 


□ orthocrack vol 3 . 

160 

. 140 F 

□ lie Uc. 

120 

95 F 

□ vision. 

120 

95 F 

□ basic français. 

180 

.120 F 

□ challenge voile. 


250 F 

□ lotoricitl . 

120 

.140 F 

□ las vegas. 

. 95 

.ISO F 

□ wiydor. 

.140 

.150 F 

□ colorie. 

.105 

250 F 

□ trésor du pirata. 

.105 

.150 F 

□ monopole. 

180 

140 F 

□ nessy . 

95 

160 F 

□ affaire en or. 

.155 

.180 F 

D world war 3 . 

95 

120F 

□ frelon 

160 

120 F 

□ starter 3 D 

130 

120 F 

□ roland garros . 

.120 

.140 F 

□ tyrann. 

185 

140 F 

□ mudicalc. 

.190 

.180 F 

□ secret de kaipur. 

130 

.145 F 

□ 3 0 fongus. 

180 

.145 F 

□ flipper (loriciel) . 

180 

.120 F 

□ montsegur. 

140 

110 F 

D sianley 

120 

.110F 

□ cobra 

140 

. 95 F 

D détective story 

150 

120 F 

□ cannibal 

95 

. 250 F 

□ tendre poulet. 

120 

. 280 F 

□ durandal . 

120 

.280 F 

□ planète bleue 

120 

.140 F 

D reversi champion 

140 

180 F 

□ j’apprends l'anglais . 

140 

180 F 

□ course aux lettres 

95 


LOGICIELS DISQUETTE 
(pour lecteur JASMIN) 

□ assembleur .490 F 

□ easytext . 590 F 

□ logo graph. 390 F 

□ gestion familiale . 390 F 

□ astro calculs. 490 F 

□ en route vers la galaxie. 390 F 

□ las conquérants . 240 F 

□ ongraph . 350 F 

□ multrfich . 590 F 

□ cale . 590 F 

□ mathegraph . 390 F 

□ le rebelle. 240 F 

ZONGA : tondre la pelouse, tailler les fleurs, 
surveiller le niveau d'énergie, ne pas se faire 
prendre par le méchant crocky! 12 tableaux 
et un éditeur vous permettant d'en créer au¬ 
tant que vous le désirez. Pour ORIC 1 et 
ATMOS 

□ ZONGA la disquette.198 F 



Moniteur 12" 

Splendide moniteur 12" monochrome vert ou 
ambre. Un modèle professionnel â un prix grand 
public. 

□ moniteur 12" vert ou ambre- 1400 F 

Cible Imprimante 

Vous permet de connecter votre Oric â n'importe 
quelle imprimante au standard "centromc" 

□ câble imprimante_150 F 

Cible Moniteur 

Pour brancher votre Oric à un moniteur mono¬ 
chrome 

□ cible moniteur-55 F 



□ GRAPHISCOP II (avec interface) 1490 F 



Mannesmann MT 80S" 

L'imprimante ‘top niveau" en informatique fa 
miliale 100 caractères par seconde Papier 
normal ou informatique Entrainement par 
friction ou traction Si vous recherchez une 
qualité "courrier", la MT 80S vous donnera 
plus que des satisfactions tant pour le texte 
que pour le graphisme 
□ Mannesmann MT 80S. 3950 F 



I f JI 



Cassette spéciale micro 

□ les 5 

□ les 10_ 


GRAPHISCOP II 

Conçue et fabriquée en France, la tablette gra 
phique è digitaliser "GRAPHISCOP II" vous per 
metlra de dessiner à la fois sur un papier et 
à l'écran en utilisant la résolution graphique 
maximale de votre micro-ordinateur 
"GRAPHISCOP II’ est livrée avec un boîtier 
interface connectable à votre micro, un manuel 
d'utilisation, un logiciel sur cassette ou disquette 
La partie principale du Source est en Basic pour 
permettre â l'utilisateur d'a adjoindre de nouvelles 
fonctions. 


NOUVEAU 


Carte E/S 

Vous permet de commander moteur, relais, lampe, 
sonnerie, projecteur 

□ cane 8 E/S. 395 F 


Cane E/A 

Pour transformer votre One en centrale de me 
sures Possibilité de brancher plusieurs cartes 
□ carte 8 E/A. 395 F 


Magnétophone 

Ce magnétophone spécialement conçu pour les 
micro-ordinateurs vous évitera bien des soucis. 
Entrée OIN ou Jack Niveau réglable. Témoin 
sonore et lumineux. Alimentation intégrée 
□ magnétophone_390 F 


Cane mère 

Grâce à ce câble vous pourrez connecter 3 inter 
faces et garderez la possibilité de brancher un 
lecteur de disquettes 

□ carte mère 3 slots-—...-205 F 

□ même modèle mais 1 slot_95 F 


□ 

45F ? 

80 F a: 


□ disquettes vierges 3". unité 35 F < 

□ disquettes vierges 3". par 10 350 F i- 


COMMENT COMMANDER : 

- Cocher le(s) articleis) désirais) ou faites en une liste sur une feuille à pan - Faites le total + frais de port (20 F pour achats inférieurs à 500 F. 40 F de 500 à 1000 F. 60 F pour tout achat supérieur è 1000 F) 

Je possède DORIC1 □ ATMOS 

NOM _ PRENOM :_TÉL :_ 


o 
- w 

X 

S 

CL 

05 

C 

Z 

05 

3 

O 


ADRESSE : 


CODE POSTAL : 


VILLE 


Mode de paiement : □ chèque □ mandat CJ contre-remboursement (prévoir 20 F de frais) 
envoyer le tout à : ORDIVIDUEL 20, rue de Montreuil 94300 VINCENNES 


réseau _ 

EEBB] 































































































































































-courrier_ 

Comment participer à la rédaction 
de THEORIC ? 

Vous avez écrit un programme 
(ou un article) que vous jugez bon 
à publier. Il suffit de l'envoyer à 
la rédaction de THEORIC sur cas¬ 
sette ou disquette (ceci est impé¬ 
ratif), accompagné d'un listing 
propre non surchargé (mais ceci 
n'est pas indispensable). 

Avec cette cassette, joignez un 
descriptif du programme (rôles 
des sous-programmes et des 
variables, etc.) et un mode d'em¬ 
ploi. En règle générale, décrivez 
vos réalisations comme vous 
souhaiteriez voir décrites celles 
d'autrui ! 

Pour les programmes en langage 
machine, un listing désassemblé 
et commenté sera très apprécié : 
le lecteur y découvrira peut-être 
l'astuce qu'il recherchait depuis 
si longtemps. 

Un abonnement d'un an à THEO¬ 
RIC (ou de 6 mois, selon la teneur 
de votre envoi) vous récompen¬ 
sera. Par la suite, si votre colla¬ 
boration devient permanente, elle 
sera rémunérée. 

SYNTHETISEUR VOCAL 
DE MICRO-SYSTEMES 

Beaucoup de courrier à ce sujet. 
Un de nos lecteurs, M. MAUSS- 
SION, nous signale que ce mon¬ 
tage fonctionne parfaitement. 
Voilà qui coupera court à toute 
polémique sur le sujet. D'autre 
part, notre lecteur ayant apporté 
bon nombre d'améliorations au 
logiciel associé à cette réalisation, 
nous autorise à publier son 
adresse. Si vous voulez lui écrire, 
n'oubliez pas de joindre une 
enveloppe affranchie self- 
adressée pour la réponse : c'est 
la moindre des politesses. 

M. MAUSSION 
98, D. des Ecots 
ST. LAMBERT-LA-POTHERIE 
49000 ANGERS 

Nous avons également reçu un 
courrier de : 

Patrick MERCIER 
Ecluse de Polvern 
56700 HENNEBONT 
qui confirme le précédent : le 
montage fonctionne, mais le logi¬ 
ciel d'utilisation décrit dans le 


numéro 45 ne tourne pas. Par 
contre, celui du numéro 47 est 
correct. Egalement, il faut tenir 
compte de l'Erratum publié dans 
ce même numéro 47, page 212... 
Il est regrettable de constater que 
notre excellent confrère MICRO¬ 
SYSTEMES n'ait pas jugé bon de 
répondre aux questions posées 
sur ce sujet ! 

Autre SOS, celui de Patrick MER¬ 
CIER (adresse ci-dessus), à pro¬ 
pos du MODEM "Universel” et 
de la RS 232 décrits dans MICRO 
et ROBOTS, revue aujourd'hui 
■disparue. Qui pourra aider notre 
lecteur ? 



COURRIER : 

LA REGLE DU JEU 

Toujours la même rengaine ! Pas 
d'enveloppe self-adressée, pas 
de réponse à votre question. De 
plus, il faut joindre à votre envoi 
le coupon détachable que vous 
trouverez en début de revue. Les 
abonnés, eux, n'ont besoin ni de 
l'enveloppe self-adressée, ni du 
coupon. Par contre, ils doivent 
joindre leur étiquette d'abonné 
(celle où figurent adresse et 
numéro d'abonné). 

Malgré les nombreuses recom¬ 
mandations déjà faites à ce pro¬ 
pos, certains d'entre-vous ne res¬ 
pectent toujours pas cette règle 
simple. Résultat : pas de 
réponse ! 

SACHEZ LIRE VOTRE 
ETIQUETTE D'ABONNE 

C'est facile ! En haut à gauche 
figure votre numéro d'abonné, 
par exemple 0306. En haut à 
droite, deux nombres : le premier 
indique le numéro de THEORIC 
que vous avez reçu au début de 
votre abonnement, le second, 


celui qui marquera la fin du 
contrat. Par exemple : 06/17. 
Surveillez ce dernier nombre pour 
être sûr de ne pas rater un seul 
numéro de THEORIC ! 

TRANSFERT DE 
CASSETTE A DISQUETTE : 

LE SERPENT DE MER ! 

C'est vrai que certaines publici¬ 
tés de TRAN font état de ces 
possibilités avec les JASMIN... à 
tort. C'est vrai que, dans THEO¬ 
RIC, nous avons souvent pris 
position contre le piratage. C'est 
certainement pour toutes ces rai¬ 
sons réunies que nous avons reçu 
beaucoup de courrier et, en par¬ 
ticulier, une lettre assez élo¬ 
quente de M. Vincent CAUQUIL. 
Qu'on ne se méprenne pas : nous 
déplorons la situation présente 
qui consiste à faire croire aux 
acquéreurs d'un drive, quel qu'il 
soit, que le transfert de cassette 
à disquette est possible. 

Ce transfert est possible dans 
certains cas seulement, mais les 
protections anti-copie, fort élabo¬ 
rées, de certains logiciels ne per¬ 
mettent ce transfert que rare¬ 
ment. 

Ceci est certainement une des 
causes, avec la curiosité techni¬ 
que, qui poussent les "déplom- 
beurs” à oeuvrer. Et quand les 
copies prolifèrent, on peut alors 
parler de piratage... même s'il est 
"d'utilité publique", au vu de la 
nullité de certains logiciels aux 
jaquettes attirantes. 

QUESTIONS A 
REPONSES EVIDENTES 

Evitez de nous écrire, surtout si, 
comme M. Dominiqjue BOST, 
vous ne joignez pas d'enveloppe 
pour la réponse, pour nous 
demander où l'on peut acheter un 
produit alors que l'adresse est 
dans la revue ! Le SEDORIC est 
disponible chez EUREKA directe¬ 
ment. Pourquoi le chercher ail¬ 
leurs ? 

MICRODISC OU JASMIN ? 

Le choix semble difficile si on en 
juge par le nombre de fois où 
cette question a été posée. Voici 
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-courrier_ __théorie. 


notre réponse : 

Si vous êtes utilisateur de logi¬ 
ciels "tout faits”, portez votre 
choix sur le "JASMIN 2". C'est 
le seul, pour le moment, qui 
puisse vous permettre l'utilisation 
d'un traitement de texte, gestion¬ 
naire de fichiers, cale, etc. 

Si vous développez vos propres 
logiciels, choisissez le "MICRO- 
DISC” : son système d'exploita¬ 
tion, le SEDORIC, est fabuleux et 
laisse en arrière le "JASMIN 2" 
et son FT-DOS. 

Le prix ? Comparable ! Si le 
"JASMIN 2" coûte 200 F de plus 
que le "MICRODISC", il ne faut 
pas perdre de vue que le premier 
est un double tête (accès aux 
deux faces de la disquette sans 
retourner celle-ci) alors que le 
second n'est qu'un simple tête. 
N'oubliez pas, non plus, que le 
"MICRODISC" vous contraindra 
peut-être à changer votre 
ATMOS. Pourquoi ? Lisez plutôt 
ce qui suit. 


FÇSAYEZ 

AVANT D'ACHETER ! 

Depuis décembre, nous avons 
reçu bon nombre de lettres et 
appels téléphoniques d'utilisa¬ 
teurs ayant eu une désagréable 
surprise. Après avoir choisi 
d'acheter un MICRODISC, pour 
compléter leur équipement, force 
a été de constater que celui-ci ne 
fonctionnait pas avec leur 
ATMOS. Retour chez le reven¬ 
deur... qui s'était bien gardé de 
préciser que les "MICRODISC" 
fabriqués par EUREKA ne fonc¬ 
tionnent correctement qu'avec 
les NOUVEAUX ATMOS. La 
solution ? Déboursez, braves 
gens ! On vous propose 
l'échange de la carte ATMOS 
contre 533 FF, ce qui place le 
MICRODISC à 3000 F. Evidem¬ 
ment, si vous avez un ATMOS 
"made in Normandie”, cela ne 
vous concerne pas. 

En conclusion, avant d'acheter, 
arrivez chez votre revendeur pré¬ 
féré avec l'ATMOS sous le bras, 
cela vous évitera bien des déboi¬ 
res par la suite. Un petit essai 
dans le magasin vous aidera à 
choisir ! 


EUH... 

PHORC! 

Le programme MUSICORIC, écrit 
sur ORIC-1, publié dans notre 
numéro 15, peut être modifié 
pour fonctionner sur ATMOS. 
L'auteur suggérait quelques 
modifications. L'une d'elles n'est 
pas correcte : le CALL #ED01 
doit être changé en #EE1A et 
non # E7CA. 

Modifications ATMOS pour 
MUSICORIC : lire EE1A au lieu de 


E7CA comme équivalent de 
ED01. 

D'autre part, l'auteur nous 
communique la modification sui¬ 
vante pour la ligne 4841. 

4841 IF MB = 0 THEN PI = DEEK 
(20001 + 2 * I ) : M ( I ) = 35501 + 
500* l:P = M(I):M 1 =P:GOTO 
4850 

A PROPOS DU 

PROGRAMME MOTS CACHES 

Publié dans THEORIC n° 14, lire 
à l'avant-dernier paragraphe 
LC<27 et non pas LC >27. 
D'autre part, pour tous ceux qui 
ne possèdent pas d'imprimante 
MCP 40, voici les modifications 
à effectuer pour utiliser le pro¬ 
gramme directement sur écran. 



EEDITIO 



M.LEVREL F6DTA 



INTERFACES 

1 


POUR 

1 


ORIC 1 

1 


CT Prix : 59 F 

1 +10 % de port 

1 


ATMOS 

§ 

ROBOTIQUE, E.A.O., AUTOMATISMES 

Pour rondro son ORIC oncoro plus porformanl. 

BON DE COMMANDE 


I 
I 
I 
I 

J * Rayer les mentions inutiles. 


Je désire recevoir."INTERFACES POUR ORIC-1 ET ATMOS" 

contre.F en chèque bancaire, CCP, mandat* à l'ordre des 

Editions SORACOM, La Haie de Pan, 35170 BRUZ. 

Nom .Prénom . 

Adresse . 

Code Postal .Ville . 

'Rayer les mentions inutiles. 


7 






















-nouvelles— 

p«itic tau dation sans inpRiriANTE 


» En t»v*r les I içnts : 
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220 « 260 



A PROPOS DE MULTIFICH 

omieur BURNET nous communiqua quelques remarques 
à propos du logiciel "MULTIFICH", édité et commercia¬ 
lisé par IRAN, pour le JASMIN. 


t Remplacer TOUS les LPR INT par PRJnî 
aux II 9 n* s : 

200,310,336,337,400,4 20, 440 

■* Taper: 

15 II- LO25 THEn ?AP :?'* IMPOSSIBLE" :EDI 
15 

260 GOTO 335 

330 PING: GOTO 340 

331 GOTO 340 
33? NEXÎ 

330 PRIM“PRESSE? UNE TOUOE" :GET A» 
339 CLS:G0T0 2?0 
445 GE T AS 

490 1F A#<> ,, N ,, ThEn 450 ELSt CALL DEEkC 
OEEK r liFFF Al* 1 l 


La société TRAN commercialise 
en direct la carte contrôleur du 
Jasmin. Cette carte est livrée 
nue, avec le système TDOS sur 
disquette 5" 1/4, simple face, 
double densité 48 TPI. Ce kit ne 
prévoit pas l'alimentation du lec¬ 
teur qui doit être obligatoirement 
de technologie SHUGART, avec 
un temps d'accès piste à piste ^ 
à 6 ms. 

Le DOS permet de gérer 80 pis¬ 
tes. Le prix de ce kit est de 
1000 F TTC, frais d'envoi com¬ 
pris. 

Autre commercialisation par la 
société TRAN : un kit de transfor¬ 
mation ORIC-1 — ATMOS, 
comprenant 1 clavier, 1 boîtier 
ATMOS avec la ROM ATMOS, le 
tout au prix de 320 F TTC. 


LOGICIELS DE 
GESTION 
FINANCIÈRE, 
COMMERCIALE ET 
DE TRAVAUX 
SUR ORIC CLAVIER 
ATMOS 

LECTEUR DUO 
2 FACES DE LECTURE 
700 K de mémoire 
de masse 

Programmation en 
Overlays 

M. MISSUD 

Tél. 94.91.47.01 
"le Chambord" Bld de Poris 
83200 TOULON 


LE LIVRET 

D'ACCOMPAGNEMENT 

Page 1 7 indique la possibilité de 
faire exécuter des calculs entre 
les variables d'une fiche 
(EXACT). 

Page 22 ''Conseils'' indique que, 
pour avoir un tri correct et non 
aberrant, il faut prévoir des zéros 
avant les chiffres pour que, dans 
une suite de nombres, tous aient 
le même nombre de chiffres 
(EXACT). 

REMARQUES 

Lorsque nous déclenchons le cal¬ 
cul dans ''MULTIFICH'', il nous 
donne les résultats sans faire pré¬ 
céder les nombres par les 


FACTURIT 

Facturation avec gestion clients, 
articles et journal de ventes. Ce 
nouveau logiciel de la société 
TRAN est plus particulièrement 
destiné aux petits commerces. 
FACTURIT, tel est le nom de 
cette facturation, permet de gérer 
100 articles, mémorisés en per¬ 
manence dans l'ordinateur, avec 
leur 4 prix de vente possibles, 
d'obtenir à tout moment, par arti¬ 
cle, le chiffre d'affaires ainsi que 
la quantité vendue. 

FACTURIT autorise la gestion 
manuelle des références 101 à 
999. FACTURIT rend possible la 
gestion de 200 clients habituels 
de leür solde et de leur chiffre 
d'affaires, ces derniers étant 
automatiquement mis à jour par 
ordinateur, grâce à la gestion des 
factures et des avoirs. La gestion 
des règlements clients et la liste 
de leur chiffre d'affaires est très 
facile. FACTURIT autorise aussi 
la gestion des clients de passage. 
FACTURIT permet aussi de faire 
des factures PROFORMAT, des 
bons de livraison, des bons de 
consignation, des bons de SAV 
et des factures à l'exportation. 
FACTURIT peut, à tout moment, 
éditer le journal des ventes, d'une 
date à une autre, avec cumul 


"zéros" préconisés pour le 
"TRI" : 

Donc : tri impossible. 

Solution : Avant de faire effec¬ 
tuer le "TRI”, prévoir, dans le 
"masque de saisie” ou dans 
"modification de questions", une 
ligne supplémentaire, appelée 
"TRI" ou, au résultat donné par 
MULTIFICH, on ajoute, en fonc¬ 
tion du plus grand nombre de la 
suite à classer : 10 ou un multi¬ 
ple. 

EXEMPLES : 

PG N < 89 AJOUT DE TRI = 10. 
PG N < 899 AJOUT DE TRI = 100. 
PGN<8999 AJOUT DE TRI = 
1000. 

Cette opération permet le 'tri" 
correct. 


journalier et mensuel des mon¬ 
tants HT, TTC et TVA (5 %, 7%, 
18,6 % et 33,3 %). 

FACTURIT, par sa conception, 
autorise n'importe quelle impri¬ 
mante et fonctionne pour n'im¬ 
porte quelle société, par simple 
mise en mémoire des codes 
imprimante, de l'entête et du pied 
de page facture. 

FACTURIT se substituera parfai¬ 
tement et avantageusement à 
une facturière sophistiquée et 
coûteuse et, cependant, ne coûte 
que 690 F TTC. 

M. Wolfram LUTHER nous 
apprend que la société MSE, Has- 
seisstrasse 136, D-4000 DÜS¬ 
SELDORF, tél.: 49/211/7480128 
commercialise un lecteur 5" 1/4 
pour ORIC/ATMOS. 

Cette information pourra peut- 
être satisfaire nos lecteurs de Bel¬ 
gique, Suisse et Allemagne... 

Pas d'étiquette 
abonné ou pas 
d'enveloppe self- 
adressée égale pas 
de réponse au 
courrier. Qu'on se 
le dise ! 
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ORIC : LA FAMILLE 



S’AGRANDIT ! 


L'année 1986 sera marquée par 
la naissance du TELESTRAT, 
alias STRATOS, annoncé il y a 
déjà quelques mois. Présenté 
comme étant "révolutionnaire”, 
TELESTRAT marie la télématique 
à la micro grâce à des interfaces 
intégrées : pas de petite boîte à 
ajouter ! 

Doté d'une interface parallèle 
(CENTRONICS), série (RS 232), 
MINITEL et d'un contrôleur de 
drive intégré, la "bête" reste 
compatible avec ses prédéces¬ 
seurs ORIC-1 et ATMOS. La 
grande révolution réside dans le 
fait que le contrôleur de drive est 
intégré (le lecteur de disque coû¬ 
tera environ 1 500 F) et que la 
machine est orientée, dès sa con¬ 
ception, vers la télématique. 
Branchée sur un Minitel, elle 
bénéficiera des possibilités de 
son Modem : à vous, les 
réseaux ! Il sera possible de créer 
son propre serveur VIDEOTEXT, 
TELESTRAT est vraiment conçu 


pour, au moyen du logiciel inté¬ 
gré : une grande partie de la ROM 
est consacrée à ces fonctions. 
Capable de stocker sur disque 
des dizaines de pages VIDEO¬ 
TEXT, TELESTRAT vous permet¬ 
tra de les analyser par la suite, 
réduisant d'autant la facture télé¬ 
phonique. 

L'aspect ludique n'a pas été 
oublié : un port cartouche est dis¬ 
ponible, ce qui devrait permettre 
la naissance de quelques bons 
jeux. Par contre, rien de neuf au 
niveau de la résolution graphique, 
240x200 en 8 couleurs... et 
toujours le conflit de proximité. 
Côté son, le AY-3-8912 est tou¬ 
jours présent. Une grande nou¬ 
veauté : l'interface MIDI qui 
devrait permettre de relier TELE¬ 
STRAT à un (ou plusieurs) 
synthétiseur. 

La mémoire reste à 64 ko, la 
ROM passe à 48 ko. Rassurez- 
vous, un système ingénieux 
laisse 37 ko à l'utilisateur ! On 


annonce d'ores et déjà une 
extension 128 ko. Côté Basic, il 
faudra un véritable brevet de 
pilote : 250 instructions sont pré¬ 
sentes ! Le gang BROCHE- 
SEBBAG est passé par là... On 
connaissait déjà le SEDORIC et 
ses merveilles : les voilà intégrées 
en ROM ! 

Promis à un bel avenir, TELE¬ 
STRAT sera commercialisé, en 
principe, courant février, au prix 
de 4000 F, lecteur 3" inclus. 
Pour une machine intégrant 
autant d'interfaces et offrant 
d'excellentes possibilités, le prix 
proposé est alléchant. 

Les Parisiens ont de la chance : 
ils vont pouvoir admirer, voire 
toucher les premiers exemplaires 
du TELESTRAT chez EUREKA ou 
VISMO dès la parution de cet arti¬ 
cle. Quant à nous, nous publie¬ 
rons un banc d'essai complet de 
cette petite merveille dès qu'elle 
sera disponible. 
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théorie _ 

VITRIÆ DU LOGŒL 



EASYDISK 
(INFORMATIQUE ET 
NATURE (IN)) 

250 F sur disquette 
JASMIN 

EASYDISK est un 
utilitaire de travail sur 
disque, le premier du 
genre sur le JASMIN. 
Il permet d'examiner 
et de modifier le 
contenu d'une 
disquette. Le logiciel 
est entièrement écrit 
en langage machine. 
Le mode d'emploi, 
bien qu'évident, est 


livré sur une notice de 
3 pages. Outre les 
fonctions classiques 
d'édition, modification 
(protection d'écriture), 
des fichiers présents 
au catalogue, 
d'effacement de 
fichiers, chargement 
de noms, etc., le 
logiciel comprend 
quelques fonctions 
fort intéressantes. Il 
est possible de 
connaître les adresses 
de début et de fin 
d'un programme, 
d'observer sa 


répartition sur les 
différents secteurs 
(voire de la modifier 
ou même de le 
désassembler). On 
notera avec intérêt la 
présence d'une 
fonction permettant 
de déplacer la page 4 
du DOS. Tous ceux 
qui possédaient des 
disquettes JASMIN 1 
et qui ont maintenant 
un JASMIN 2, seront 
heureux de savoir 
qu'on peut modifier le 
Bit Map afin 
d'accéder à la 


seconde face (et oui, 
ce n'était pas possible 
avant !). Présente 
aussi, une fonction de 
formatage simple : 18 
secondes pour une 
face. 

En tout, 15 fonctions, 
que nous ne citerons 
pas toutes dans le 
détail, complétées 
d'une possible édition 
sur imprimante, pour 
la dernière version 
sortie. 

Un bon utilitaire de 
travail sur disque que 
tout programmeur sur 
JASMIN devrait 
posséder. 
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théoric_ 


"PSYCHIATRIC" 

(SPRITES) 

Aure BERNARD 

Les refuges ne sont 
plus ce qu'il étaient. 
Le vôtre est peuplé 
de monstres infâmes 
et sanguinaires. Votre 
unique moyen de 
défense est de les 
coincer dans des 
trous que vous aurez 
préalablement creusés 
dans le dallage, puis il 
faudra leur sauter sur 
la tête pour les 
empêcher 
définitivement de 
nuire, Mais, pour 
votre malheur, les 
plus dangereux 
doivent tomber de 
deux étages pour être 
détruits. L'enfer quoi I 
C'est loin d'être 
facile, et en plus vous 
êtes limité dans le 
temps pour ne rien 
arranger. C'est 
vraiment un jeu à 
vous rendre fou, d'où 
le titre, l'option deux 
joueurs instaurant la 
notion de compétition 
(en plus !). 

Le graphisme est 
soigné et relativement 
joli, mais vous n'aurez 
nullement le temps de 
le contempler si vous 
jouez, croyez-moi sur 
parole. Le jeu possède 
plusieurs niveaux de 
I difficulté et la 


possibilité de choisir 
ses touches : génial 
quoi ! J'ai pourtant 
cherché des défauts 
dans cette 
production : et bien, 
honnêtement, les 
amateurs de RAT 
SPALT, LODE 
RUNNER, etc. 
devraient être ravis ! 
Certes, ce n'est pas 
le sommet des jeux 
sur ORIC, mais il doit, 
à mon avis, avoir une 
bonne place dans 
toute logithèque qui 
se respecte, qu'on se 
le dise I 


Yanick BOURREE 


"LA CITE DE 
CRISTAL'* 

(BLEU CIEL 
INFORMATIQUE) 

Etant donné la crise, 
même les 
archéologues sont 
obligés de subir des 
épreuves théoriques 
et pratiques. Manque 
de chance, vous allez 
devoir les subir car 
vous voulez devenir 
archéologue ; si, si, 
on me l'a dit... 
Attention, les 
archéologues font non 
seulement preuve de 


connaissances 
historiques, mais ils 
doivent également 
savoir se repérer sur 
le terrain et être 
logiques et censés 
devant l'imprévu, 
comme le dit si bien 
la notice... 

Conclusion : vous 
êtes envoyé en 
mission dans LA CITE 
DE CRISTAL ; vous 
voilà l'Indiana Jones 
des temps modernes. 
La cité se compose 
de quatre grands 
secteurs, tous aussi 
complexes les uns 
que les autres, tous 
aussi fragiles, très 
fragiles. Soyons 
logiques, une cité de 
plusieurs siècles, c'est 
rarement très solide, 
à moins de s'appeler 
LA CITE DE BETON, 
ceci doit compter 
dans votre stratégie 
de jeu. 

Vous voilà donc 
parachuté dans cette 
fameuse cité, votre 
but étant de vous 
rendre sur des lieux 
répertoriés dont une 
liste est fournie avec 
le logiciel. C'est 
d'ailleurs très original, 
car cette liste apparaît 
sous la forme d'une 
lettre de l'INSTITUT 
NATIONAL DES 
IDEES, présentant 
votre mission afin 


d'obtenir votre 
diplôme. 

Le jeu est donc une 
bonne reprise des 
fameux jeux de 
labyrinthe qui 
pullulaient il y a 
quelques années. 
Seulement là, vous 
pouvez monter sur les 
murs pour voir un peu 
en avant dans votre 
progression, facile, 
me direz-vous ? Bon, 
achetez-le et 
essayez... vous verrez 
que je ne suis pas le 
seul à rater l'examen 
dix fois de suite, car 
on peut le rater. 
Comment ? Mais en 
cassant des murs par 
maladresse ou bien en 
essayant de marcher 
sur les murs... de 
cristal. 

Le graphisme, bien 
que monotone est 
soigné, vous pouvez 
régler votre vitesse de 
progression, choisir 
votre niveau, bref, 
vous amuser. Bon, il 
faut que je vous 
quitte, les créanciers 
sonnent à ma porte 
pour une histoire de 
boussole non payée. 
S'il me reste des 
sous, j'irai sans doute 
voir ''SCOUT 
TOUJOURS”. 


Yanick BOURREE 




CLAVIDACTr,™. 

Pour savoir laper aussi bien que votre 
secrétaire... ■ exercices, explications, 
test de niveau (azerty qwerty) ATM0S-M05 

DIALOGUEo“on 

Creez votre réseau ORIC lel ATMOS ou 
par téléphone, radio.etc... jouez ou 
travaillez ensemble. logiciel et notice 

ELEPHORM-C0L0R ® 

l’alco test du programmeur 
a consommer a jeun_ ATMOS 

DAMAEfS _ 

sauvegarde gestion des réglés ATMOS 


flIT 7 fl ' Ht* I système auteur jlZO fl 
UN...' U MU ! toute matière 



û ☆ NOUVEAUTES ******* 

auteur [ 
i matière 

Réali$ez facilement vos questionnaires 
scolaires ou extra-scolaires édition sur 
lmp., copies, modif . etc.. ATMOS-MO 5 

CITE DE CRISTAL,r e 

Un bon archéologue ne doit perdre ni le 
fil de ses idées ni celui de ses recherches 
dans les50000 ruelles ATMOS-MO5 

MEFIES TOI DE MEPHISTO 

E. Rachetez votre ame. imprudemment vendue 
=■ au diable ATMOS” MO 5 


reglemen! s II commande 

Nrt 15 Fr» 


1CLAVIDACT HDIALOGUE 
lom Prénom 


80 rut iis 

□ ELEPHORM 


Fourniers 07500 GUILHERAND - tel 7540*844 


□ DAMAE 
Adresse 


□DIT..? D AC • DCITE CRITAL 


[ 1MEPHISTO OllC 

MOS 


( 7 ^ 

+ 1 * 

V 

* 1 * 

* * 

* 

* * 
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BIBUORIC 



"ALGORITHMES'' 

P. BEAUFILS et W. 

LUTHER 

Sybex 

198 F 

Le titre est assez 
ambigu, puisqu'en 
fait, le lecteur ne 
trouvera pas dans ce 
livre des solutions 
pour établir des 
algorithmes, mais 
plutôt une collection 
de formules avec les 
moyens de les 
programmer. Il y en a 
vraiment pour tous 
les goûts, ce qui 


devrait ravir les 
étudiants : analyses 
de fonctions, 
résolutions 
d'équations et 
polynômes, équations 
différentielles, etc. Il 
est vrai que les 
auteurs sont des 
spécialistes en la 
matière, bien connus 
des lecteurs de 
THEORIC. 

La présentation du 
livre est très claire, 
l'aspect pédagogique 
n'est pas oublié. Un 
chapitre est consacré 
aux fichiers. 


L'approche et la 
lecture de cet 
ouvrage demandent 
pas mal de 
connaissances, mais 
la collection 
d'algorithmes 
numériques qu'il 
renferme va satisfaire 
bon nombre 
d'étudiants. Les 
programmes, écrits 
sur ORIC, devraient 
pouvoir être adaptés 
sans peine au Basic 
d'autres ordinateurs... 
si on exclue les 
fonctions graphiques. 


ABONNEZ 

VOUS.J 

- \ v 

__««s» 1 

Prénom ^ 

mhom . I 

^ Adresse • • ViUe . .. 

%Code P° s,al .' Signature . 8 5 M 

1—s : s r St', 

— soracsm 
























ANMATION GRAPHQUE 


AMELIOREE 


PROGRAMME DE 
DEMONSTRATION 


Francis BARGUES 


animation d'une figure 
sur écran haute résolu¬ 
tion avec le Basic de 
l'ORIC conduit à un résultat 
désagréable à l'oeil de l'ob¬ 
servateur en raison de la suc¬ 
cession visible du tracé et de 
son effacement. 

La méthode qui suit a pour but 
d'améliorer l'impression 
visuelle d'un programme gra¬ 
phique écrit en Basic, pour un 
temps global d'exécution 
identique. 



Tapez le listing du programme ci- 
joint, puis RUN. Le programme 
charge les routines utilitaires, puis 
montre, par un exemple, l'améliora¬ 
tion produite. 

METHODE UTILISEE 

Pour obtenir ce résultat, il suffit de 
tracer la figure souhaitée sur un 
"écran virtuel" situé entre les adres¬ 
ses #7800 et #9740, puis appeler 
la routine rapide de transfert de 
l'écran virtuel vers l'écran réel en 
#7577. 

Comment dessiner sur l'écran virtuel 
en utilisant les instructions graphi¬ 
ques du Basic ? 


AVENTURIERS 
EN PERDITION 

Gérard BITSCH 
2, rue Georges Bizet 
78100 ST. GERMAIN EN LAYE 
MEURTRE A GRANDE VITESSE 
Comment décoder le message 
déchiré et comment se servir du 
micro-ordinateur ? 


LE MYSTERE DE KIKEKANKOI 
Perdu dans les salles, je ne trouve 
pas l'astuce pour sortir de ce 
dédale... 

De même pour le “Retour du Dr. 
GENIUS" et “Citadelle". 

Qui voudra bien répondre DIREC¬ 
TEMENT au SOS de notre lec¬ 
teur ? 


MEURTRE A GRANDE VITESSE 

Un tuyau de Gérard BITSCH. 
Pour trouver les numéros de télé¬ 
phone et codes MINITEL, il faut 
faire le "12" pour obtenir les ren¬ 
seignements et... patienter, voire 
rappeler, comme dans la réalité. 
Vous obtiendrez ainsi 3 numéros 
de téléphone et 3 codes d'accès 
sur Minitel. 


Vous-êtos un passionné 
de micro-informatique ? 

AUTEURS 

«OR* corA 

., £a ition 

Société 0 n*'°"' s 

• n <°ttvS*« echn ‘ q 

é d " 8U e r t1’torm°*'£ e 

oln*' 1 u0 T rt£oR‘ c v l 

^SS"'« tcTOR 

'& wl 

Vos propositions seront examinées avec soin, quelle 
que so : ‘ présentation de votre manuscrit. Prenez 
contact avec M. Marcel LEJEUNE au 99 52.98.11. 

Collection Poche ou collection plus importante, nos 
collections sont réalisées avec une équipe de colla¬ 
borateurs compétents, aptes à vous aider et à vous 
cortseiller. 

Editions SORACOM 

10, *t 4c G1 4« Gm1I« 

35170 IIOZ 
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UTILISATION DES 
FONCTIONS BASIC 
SUR L'ECRAN VIRTUEL 

CURSET X, Y, fb 
Faire DOKE #2E1, x 
DOKE # 2E3, y 
DOKE # 2E5, fb 
CALL # 76E3 
ou bien si fb = 0 ou 3 
faire DOKE #2E1, X 
DOKE # 2E3, Y 
DOKE # 2E5, fb 
CALL #7727 
si X ou Y négatif 
X = 65536-X 
ou Y = 65536-Y 
ou bien si fb = 0 ou 3 
faire CALL #75EC 

DRAW X, Y, 3 
DRAW X, Y, fb 

Utilisation normale après le CURSET 
ou CURMOV virtuel. 

CHAR n, », fb 

Utilisation normale après le CURSET 
ou CURMOV virtuel. 

PATTERN I 

Utilisation normale après le CURSET 
ou CURMOV virtuel. 

FILL I, |, n 

Utilisation normale après le CURSET 
ou CURMOV virtuel. 

PAPER p 

Faire CALL #75EC 

FILL 200, 1, b b = couleur du 
fond. 


INK i 

Faire CALL #75EC 
DRAW 6, 0, 3 
FILL 200, 1, F 
frcouleur de l'encre 
CIRCLE R, fb 
Faire DOKE #2E1, R 
DOKE # 2E3, fb 
CALL # 760E 
POINT (X, Y) 

Faire DOKE #2E1, x 
DOKE # 2E3, y 
CALL # 773B 
PRINT PEEK ( # 2E0) 

On obtient 255 si couleur de l'encre 
et 0 si couleur du fond. 


MISE EN OEUVRE DES 
PROGRAMMES GRAPHIQUES 

Le chargement des routines utilitai¬ 
res débute par l'instruction qui les 
protège : HIMEM #7577 jusqu'à 
l'instruction 1000. 

L'utilisateur dispose donc de la 
plage #0500-#7577, soit 28791 
octets pour le programme Basic. 

Le grapique sur l'écran virtuel s'exé¬ 
cute en utilisant les fonctions décri¬ 
tes ci-dessus, comme sur l'écran réel. 

Il est de plus possible d'utiliser les 
trois routines suivantes : 


CALL #75EC 

Initialisation de l'écran virtuel (équi¬ 
vaut à un CURSET 0, 0, 3). 

CALL #7577 

Transfère sur l'écran réel le contenu 
de l'écran virtuel. 

CALL # 75BC 

Efface la totalité de l'écran virtuel. 
Cependant, il est possible de n'effa¬ 
cer qu'un domaine quelconque de 
l'écran virtuel. 

Le programme de démonstration, 
par exemple, par la ligne 2140, 
modifie la routine pour conserver les 
deux colonnes de gauche de l'écran 
virtuel (couleur papier et encre), 
après chaque nouveau tracé. 

CONCLUSION 

Cette méthode, simple à mettre en 
oeuvre, vous permettra d'améliorer 
le réalisme de vos animations gra¬ 
phiques avec d'autant plus d'effica¬ 
cité que le dessin sera plus complexe 
à tracer (l'effacement est automati¬ 
que et rapide). 

Les amateurs de langage machine 
pourront transposer ces principes sur 
un autre type d'ordinateur familial. 
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de J. S. Bach 



^1 Ê une belle illustration musicale apporte une touche plus 
^^y ^y"professionnelle" à un programme. Voici, en quelques 
1 wl DATA comment mettre à l'épreuve le générateur sonore 
de l'ORIC. 

CHORAL est écrit en Basic et ne demande pas de commentaire 
particulier. Il fonctionne sur ORIC-1 ou sur ATMOS. Ecrit 
d'après la partition (à 4 voix mixtes), en tenant compte des 
nuances indiquées par J.S. BACH, le CHORAL a été adapté au 
mieux pour tenir compte des seuls 3 canaux de l'ORIC. Le 
résultat est loin d'être décevant. 

_0 RFM****** ************** X X ** *** XX* K* 


Décembre 1933 


«1 REN 

«2 REM Bernard SZABO 
«3 REM 

CHORAl. FINAL DE LA PASSION 
SELON SAINT JEAN 


«4 REM 
_5 REM 
«6 REM 
_•? PEM 


X 

X 

* 

* 

x 

* 

* 


DE JEAN-SEBASTIEN BACH 
_3 PEM* *•**** *X ********* XXXX XX*X ******* 

«R 0Ü3UB2C00 

_10 FOP X=1T027:V=11:G03UB 1020 :next X 
«15 FOP ''=IT07:V=V+.5:G0SUB 1020: NEXT :< 

_17 Fnp X=1T05:V=15:G0SUB1020:NEXT X :PLAYO,O,O,O: WAI T 10 

_ro for ;<-ito27:v=3:cosubi 020 :mcxt x 

«75 FOR X-»tTC3:V-=V*.5:G03IIB 1020INEXT X 
_3C> FOR X*lT04:V=V-l:GOSUB 1020: NEXT Xî PLAYO, 0,0,0 
«35 FOP N» l T03: V=1 1 : G0SUB 1020 : PLAYO, 0,0,0 : NEXT X 

_do fop y -1 tog: v=°: gosijb iozo:mext x:playo,o,o,o 

«4? FOP >> 1 T04: 0=9: GOSMB1020: NEXT X 

«50 for y=iT03:v=v*i :gosijb io2o:next x 
«“■•5 for x=ito5:v=12:gosubio2o:next x:playo,o,o,o 

«AO FOO X-tTOI 1 :v=12: GOSUB1 020: NEXT X 
«65 FOP X=IT0' 7 : 0=10: GOSUSIC20: NEXT X 
_-» 0 for x=ito4:v-v-.5:gosubio2o:next x:v= 9 
_-’5 FOR X--1T03: G0SUB1020: V=V* . 5: NEXT X 
«PO FOP X-1TOI1:GOSUBl020:NEXT X 
«os fop x-=itoio:v»15:gosubio2o:next x:playo,o,o,o:end 

_100 DATA 80,4,5, 11, <1,8, <1,80,3,5,11,4,6,4,80,1, S, 3, «4 , *4 , *4,80,11,4,8,4,3,4,40 
_1 10 DATA 9,4,6,4,2,4,40,3,4,4,4,2,4,40,1,5,4,4,1,4,40,1,5,4,4,11,3,40,1,5,9 



«120 DATA 4,1,4,4< 


i,9,4,3,4,160,11,4,3,4,4,4,40,4,3,3,4,3,3,40,4,S,3,4,9 


_130 DATA 3,40,3,5,P,4,11,3,40,3,5, 6,4, 11,4,40,1,S,4,4,1,4,40,1,0,0,4,3,4,40 
«140 DATA 11,4,0,4.4,4,40,11,4,6,4,4,4,40,9,4,4,4,9,3,40,3,4,3,4,11,3 
«ISO HATA 40,1,5,4,4,1,4,no,1,3,6,4,4,4,40,1,5,6,4,3,4,40,1,3,6,4,1,4,160,11 
«160 r^TA 4-, S,4,3,4,80, 11,4,3,4,4,4,40 , 1,5,9,4,4,4,40,1,5,1,5,9,4,40,3,3, 11,4 
«170 DATA 0,4,40,3,5,9,4,6,4,40,4,5,3,4,4,4,40,6,5,6,4,11,3,30,0,5,4,4,2,4 
«180 DA-TA 00,6,5,6,4,1,4,30,4,5,6,4, 1,4,30,4,5,3,4,11,3,30,3,5,9,4,11,3,200 
«190 DATA 4,5,8,4,11,3 

«200 DATA 80,4,5, lt,4,8,4,80,3,5, 11,4,6,4,30,1,5,3,4,4,4,30,11,4,S,4,3,4,40 
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_210 DAT/' 9,4,6,4,n,<1,40,8,4,<1,A,2,4,40,1,5,4,4,1,4,40,1,5,*4,*4,11,3,40,1,5,? 
_2?0 DATA 4,1,4,40,1,5,9,4,3,4,160,11,4,3,4,4,4,40,4,5,3,4,8,3,40,4,5,6,4,V 
_230 DATA 3,40,3,5,3,4,11,3,40,3,5,6,4,11,4,40,1,5,4,4,1,4,40,1,5,6,4,3,4,40 
_740 DATA 11,4,8,4,4,4,40,11,4,6,4,4,4,40,9,4,4,4,9,3,40,8,4,3,4,11,3 
_75r> DATA 40,1,P,4,4,1,4,40,1,3,6,4,4,4,40,1,5,6,4,3,4,40,1,5,6,4,1,4,160,11 
_2AO DATA 4,n,4,3,4,80,11,4,3,4,4,4,40,1,5,9,4,4,4,40,1,5,1,5,7,4,40,3,5,11,4 
_T’* , 0 DATA 8,4,40,3,5,*’, 4,6,4,40,4,5, S, 4,4,4,40,6,5,6,4,11,3,30,8,5,4,4,2,4 
_280 DATA 80,6,5,6,4,1,4,00,4,5,6,4,1,4,30,4,5,£,4,11,3,30,3,5,9,4,11,3,200 
«.290 DATA 4,3,3,4,11,3 

_79“î DATA no ,4,5,8,4,1 1,3,30,4,5,9,4,1,4, SO ,6,5,9,4,1,4,40,4,5 

_300 DATA O,4,1,4,40,3,5,3,4,3,4,40, 1,5,3,4,4,4,40,3,5,3,4,3,4,40,4,5,<j, 4,1,4 
_31o DATA 40,4,5,8,4,1,4,80,4,5,10,4,6,4,160,3,5,11,4,6,4,30,3,5,11,4,6,4 
_3?0 DATA 30,4,5, 11,4,11,3,30,6,5,9,4,11,3,40,4,5,8,4,11,3,40,3,5,3,4, 11,3 
_33C DATA 40,1,5,11,4,6,4,40,3,5,11,4,6,4,40,4,5,11,4,4,4,40,3,5,11,4,3,4,30 
«.340 DATA 6,5,1,5,1,4,160,3,5,11,4,6,4,30,3,5,11,4,4,4,40,3,5,11,4,4,4,40,o,5 
_350 DATA *1,A,3,4,40,8,5,1,5,1,4,40,8,5,1,5,11,3,40,6,5,1,5,9,3,40,6,5,1,5 
_3éO DATA 11,3,40,4,5,9,4,1,4,40,4,5,9,4,3,3 

_370 DAT A 90,4,5,3,4,11,3,30,3,5,6,4,11,3,160,4,5,3,4,11,3,30,3,5, 9,4,ü,4 

_330 DATA 40,4,5,S,4,11,3,40,4,5,8,4,1,4,40,3,5,6,4,3,4,40,3,5,11,4,3,4,30,1,5 
_39C DATA 0,4,4,4,30.11,4,0,4,3,4,40,11,4,3,4,4,4,40,11,4,3,4,3,4,30,10,4,6,4 
_400 DATA 1,4,160,11,4,6,4,3,4,40,3,5,4,4,11,3,40,8,5,4,4,1,4,40,6,5,6,4,3,4 
_41o DATA20,6,5,3,4,3,4,20,6,5,9,4,3,4,40,4,5,8,4,4,4,40,4,5,10,4,1,4,160,3,5 
_420 DATA 12,4,8,4,80,8,5, 1,5,1,4,40,9,5,1,5,6,4,40,8,5,1,5,4,4,40,6,5,12,4,3 
_430 DATA 4,40,6,5,1,5,1,4,80,8,5,8,4,3,4,30,4,5,3,4,1,4,40,4,5,7,4,1,4 
_440 DATA 40,4,5,6,4,1,4,30,3,5,6,4,11,3,160,4,5,3,4,11,3,80,4,5,3,4,2,4 
_45D DATA 40,4,5,9,4,1,4,40,4,5,9,4,3,4,80,4,5,9,4,4,4,30,6,5,9,4,11,3,80,4,5 
_460 DATA S,4,11,3,160,4,5,6,4,1,4,30,4,5,6,4,11,3,30,3,5,6,4,11,3 
_470 DATA 240,4,5,8,4,11,3 
_1020 PFAD U,Ml,01,N2,02,N3,03 
_1030 MUSTC 1,01-1,NI,V 
_10AO MUS T C 2,02-1,M2,O 
_1050 MMSTC 3,03-1,N3,V 
_1060 PLAY 7,0,5,10 
_ 1 070 L’AIT WJ RETURN 
^1090 PLAY O,O,O,O 
«.2000 ClS:P0KE618,10 
_2010 PA°ER41IMK7 


_2070 PPTMTt PRIMT:PRIMTSPC(9) *****************’ 

— 2030 PRINTSPC( 9 ) " *“SPC t14) "*" 

_2040 PRIMTSPC(9)"*"SPC 114) **' 

_2050 PRIMTSPC t 1 ) * ********* "SPC (14) "********** 

_?060 PRIMTSPC ( 1 ) "*"SPC (30) ** " 

_20‘ , 0 PRIMT” X " CHR$ ( 27 ) * J CHORAL FI MAL DE LA PASSION"CHR*(27)*H *” 
_20C0 PRIMT" *"CHR*(27)"J CHORAL FINAL DE LA PASSION"CHR*(27)"H *" 
_2O90 PRIMTSPC(1)"*"SPC(30)"*" 

_2100 PRINTSPC(l)"X"SPC(30)"*" 

_211O PRIMT" *"CHP*(77)"J SELON SAINT JEAN“CHR*(27)"H *" 

_2120 PRINT" * * CHR*(27)* J SELON SAINT JEAN"CHR*(27)"H * 

_2130 PRINTSPC(1)"*"SPC(30)"X" 

_2140 PPINTSPC(1) * *"SPC(30 > "*" 

_2150 PRIMTSPC(t > "*“SPC(13) "**XX"SPC(13) "*"• 

_2160 PRIMTSPC<1)"«"SPC(30)"*" 



BACH"CHR*(27) 
BACH"CHR*(27) 


*" 

*■ 


_2l7n PRINT" *"CHP*(27)"J. J.-S. 

_2180 PPTNT" *"CHR*(27)"J J.-S. 

_?190 FOR1=1T04 

_2200 PRINTSPC(1)"*"SPC(30)"*" 

_2210 NEXT 

«.2220 PRINT" " 1 1 FORT* 1T032! PRINT "*" J : NEXT 
_2225 P0KE613,2 
«2230 RETURN 

_2300 REM******************************************************************* 
«.23 1 0 REM 

..2320 PEM Pour supprimer la présentât 1 on : Ne pas entrer les 1lgnesî9 et 
— 2330 PEM 2000 a la tin 

_2340 REM 

_2350 PEM****X************************************************************** 
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QUELQUES ELEMENTS 
DE PROGRAMMATION 



Wolfram LUTHER 


Û uand on passe à la solu¬ 
tion d'un problème, il faut 
d'abord l'analyser et trou¬ 
ver une méthode de traitement, 
souvent appelée "algorithme”. 


L'algorithme indique comment 
procéder, étape par étape, pour 


SELECTIONNE PAR 
LA REDACTION DE TNEORIC 


O 


MICROLOae 

0 ~ 

° EDITEUR 

ASSEMBLEUR 

VERSION 1.1 


lORic 

IeîATMOS Michel Bart| 

"BON DE COMMANDE PAGE~ iô~ 


arriver au but. On décompose 
souvent le problème en plusieurs 
sous-problèmes, dont la solution 
est peut-être déjà connue. 

Dans un premier temps, notre 
algorithme est décrit dans un lan¬ 
gage plus ou moins naturel et 
c’est le devoir du programmeur 
de cerner les structures avec plus 
de rigueur et de traduire l'algo¬ 
rithme en employant un langage 
de programmation. 

Le choix de ce langage dépend 
étroitement de la nature du pro¬ 
blème et nous savons bien que 
l'ORIC ne nous offre pas un choix 
abondant. Limitons-nous donc au 
Basic qui est le plus vite accessi¬ 
ble. L'algorithme contient en 
général trois types de structures 
fondamentaux. 

• La structure de sélection ou 
affectation conditionnelle. 

On teste si une condition est rem¬ 
plie ou non et, selon le résultat, 
on sélectionne sur un ensemble 
d'alternatives ou affecte une 
valeur à une variable. 

Le Basic répond très bien à ces 
structures par son jeu d'instruc¬ 
tions IF... THEN... ELSE. 
Exemple : 

IF X = 0 THEN GOSUB 100 ELSE 
X = 0: GOSUB 200 
condition - alternative 1 - affec¬ 
tation alternative 2. 


• La structure d'itération. 

Elle permet d'exécuter un groupe 
d'instructions plusieurs fois à la 
file : 

Le nombre de répétitions est soit 
fixé dés le début, soit donné par 
un critère d'arrêt. Les éléments 
du Basic sont les suivants : 

La boucle FOR... TO... (STEP) 
NEXT 

et la structure : 

REPEAT ... UNTIL 
Donnons un exemple : 

Afin de calculer la fonction fac¬ 
torielle FAK(N), nous écrivons : 
FAK(O) = 1 
FOR I = 1 TO N 
FAK (I) = FAKII — 1 ) * I 
NEXT 
ou 
1 = 0 

FAK(O) = 1 
REPEAT 
1 = 1 + 1 

FAK(I) = FAK(I — 1 ) * I 
UNTIL I = N 

et nous arrivons ainsi rapidement 
au résultat voulu. 

Ce procédé cache pourtant l'as¬ 
pect mathématique du problème. 
En principe, on définit la fonction 
FAK d'une manière récursive : 
On pose FAK(O) = 1 et on obtient 
FAK(N) en multipliant FAK(N - 1 ) 
par N, FAK(N-I) étant déjà 
connu. 
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L'algorithme récursif est alors le 
suivant : 

■ FAK (N) 

IF N = 0 THEN FAK(N) = 1 
ELSE FAK(N) = N*FAK(N - 1 ) 

On est tenté de demander où est 
finalement la différence entre les 
deux points de vue. 

Le procédé itératif attaque direc¬ 
tement le problème en partant de 
la racine FAK(O) = 1 et en calcu¬ 
lant succissivement FAK(I) pour 
1 = 1 à N, il s'agit donc d'une 
méthode ascendante. 

Au contraire, l'algorithme récur¬ 
sif ramène (à l'aide de la formule 
récursive : 

FAK (N) = N • FAK(N - 1 )) 

notre problème d'ordre N au pro 
blême moins complexe d'ordre 
(N - 1 ). Il est de type descendant. 
Notons alors le troisième élé¬ 
ment : 

• Les structures récursives 
et remarquons tout de suite que 
le Basic est beaucoup moins bien 
adapté aux besoins des algorith¬ 
mes récursifs que par exemple le 
Pascal. 

Nous voulons formuler un petit 
programme en Basic pour réaliser 
l'algorithme récursif de calcul de 
la fonction FAK (figure 1). 

COMMENTAIRES 

La sous-routine fait donc N fois 
appel à elle-même en descendant 
par N- 1, N - 2,... 1.0. 

A ce moment-là, le calcul 
commence : 

F = 1 

et en remontant par 1, F = F*F, 
RETURN, 2, F = 2*F, RETURN. 
etc. on arrive après N RETURN à 
F = FAK(N) et un dernier RETURN 
nous renvoie à la ligne 40 : sor¬ 
tie du résultat. 

On a donc N + 1 sous-program¬ 
mes imbriqués. 

Evidemment, le nombre N est 
limité par la taille de la pile, sur 
laquelle le système stocke 
l'adresse actuelle avant de se 
déplacer. On arrive à calculer au 
maximum 23! par cette méthode 
récursive réalisée en Basic. 
Nous comprenons bien que vous 
n'êtes pas persuadé de la néces¬ 
sité de la méthode récursive. Pre¬ 
nons donc un autre exemple 


10 REM CALCUL FAK(H) 

20 INPIJT "N= "jN Figure 1 

30 GOSUB 100 : REM calcul récursif de FAK(N > 

40 PRINT "FAK<": N;" ) = ”; F 
50 GOTO 20 

100 IF N=0 THEN F*1:RETURN: REM Fin de récursion 
110 N=N-1 

120 GOSUB 100 : REM Appel procédure FAK(N-l) 

130 N=N+1 REM Restitution de la valeur'H cp . ligne 120 
140 F=N*F : REM Formule récursive 
150 RETURN : REM Retour à la ligne 40 ■ 


OFFRE SPECIALE: 

la cassette.35 F 



oric : atmos 


ORIC1 ET ATMOS 

par FERVE MEUROU 


Veuillez m'adresser la cassette : 

SORACOM □ Water-Panic .35 F 

10, avenue du Général □ p 0 opy .35 F 

de Gaulle, 35170 BRUZ □ Editeur-assembleur version 1.1 ... .80 F 

Total . F 

+ port 10 % 




Offre valable^ 
jusqu'à 
épuisement 
du stock. 

Nom . Prénom. 

Adresse . 
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beaucoup plus frappant, le jeu 
des trois tours de Hanoï. 

Il existe une littérature abondante 
sur ce problème (ô combien clas¬ 
sique). Citons seulement Pierre. 
LE BEUX : Introduction au Pascal, 
Sybex, Paris. 

La situation du jeu est vite 
décrite. 

On a trois tours devant soi : 

— la tour d'origine où sont empi¬ 
lés N disques suivant les diffé¬ 
rents diamètres décroissants ; 

— une tour intermédiaire ; 

— une tour réceptrice. 

Les deux dernières sont vides au 
départ. 

Il faut maintenant passer les N 
disques de la tour d'origine sur la 
tour réceptrice un par un en se 
servant de la tour intermédiaire et 
en respectant là règle suivante : 
A aucun moment, un disque ne 
doit être empilé sur un disque de 
plus petit diamètre. 

Prenons un exemple : 

Partons avec deux disques sur la 
tour d'origine, un grand et un plus 
petit. 

Dans un premier temps, on 
déplace le plus petit disque de la 
tour d'origine sur la tour intermé¬ 
diaire, ensuite le plus grand dis¬ 
que est transféré sur la tour 
réceptrice et finalement on arrive 
au but en passant l'autre disque 
sur le disque plus grand. 

Avec trois disques, les choses se 
compliquent. 

Voici l'algorithme à suivre : 

On déplace, comme déjà expliqué 
plus haut, deux disques sur la 
tour intermédiaire, transfère 
ensuite le plus grand disque res¬ 
tant sur la tour d'origine à la tour 
réceptrice, et on passe une 



m f/ 



TOUR 0 1 ORI • TOUR INTER. TOUR RE 

:ep . 







—L M 

J 

L 

j_ r 



Méthode récursive 


Figure 2 



Méthode récursive 

Les 3 tours de Hanoi - N disques.. N imPair- 


deuxième fois les deux disques Cela étant dit, nous allons formu- 
de la tour intermédiaire à la tour 1er l'algorithme récursif (voir 
réceptrice. figure 2). 


T0UP3(N> 



T8 = TOUR D’ORIGINE: TI 

= TOUR INTERMEDIAIRE TR = 

TOUR RECEPTRICE 

IF N=1 THEN DISQUE'T0 - 

> TR y ELSE 


T = TI TI = TR 

: TR = T: REM ECHANGE TI <-> 

TR 

TOURS*: N-1 > : REM 

APPEL ROUTINE TOURS*:.N-1) 


T = TI: TI = TR 

• TR * T- REM ECHANGE TI <-> 

TR 

DISQUE'! T0 -> TR> 

REM DISQUE No N TRANSFERE 


T = T0: T0 = TI 

: TI = T- REM ECHANGE T© <-> 

TI 

T0URS(N-1> 



T = T0• T0 = TI 

: Tï '= T : REM ECHANGE T0 <-> 

TIb 
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Il en résulte le programme suivant 
en Basic : 


1 REM Les trois tours de Hanoi - algorithme 
10 INPUT" Nombre de disques N= "N = REM N<25 
20 NT=0 : T0= 1 : TI = 2 : TR=3•• REM T ours d * or i 9 i ne .• î nte 
rmed i a i re, receP tr i ce 
30 GOSUB 100= REM Début Algorithme 
40 PRINT "Nombre de transferts : "• NT 
50 END 

100 IF N=1 THEN GOSUB 200 ! RETURN : REM Transfert 
110 T-TI= TI=TR:TR=T: REM Changer TI,TR 
120 N=N-1 : GOSUB 100 : REM fiPPel sous-routine 
130 N=N+1 

140 T=TI= TI“TR :TR=T = REM Changer TI,TR 
150 GOSUB 200 REM Transfert intermediaire 
160 T=T0 : T0=TI;TI=T : REM Changer T8,TI 
170 N=N-Î GOSUB 100 : REM 2. aPPel sous-routine 
130 N-N+1 

190 T-TO •• TO=TI = TI=T : REM Changer T0, TI 
195 RETUF REM N dis9u.es transférés 
700 PRINT " Transférer dis9ue de "T0" a "TR 
210 NT=NT +1 
220 RETURN■ 


AVEZ-VOUS 
LA COLLECTION 
COMPLETE 
DE THEORIC ? 

Bon de commande page 3 



Pour faire plaisir aux amateurs de 
jeux sur ordinateur, nous ajou¬ 
tons une routine graphique et une 
option jeu. 

Voici le listing: 


CARTE D'EXTENSION 
ORIC-1 /ATMOS 



Nombreuses utilisations 

Cette carte permet le branchement de manettes 
de jeu fonctionnant avec absolument tous les 
logiciels existants ou à venir. 

Elle est très simple d'utilisation grâce à la matrice 
représentant le clavier, 
connecteurs d'extension permettent de 
brancher différents matériels tels que : lecteur de 
disquettes, imprimante, carte RAM, carte 
REPROM (qui sortira prochainement), etc... 

Le prix unitaire est de 450,- F TTC 
-- 

BON DE COMMANDE à retourner à ECSI, 23 ru« Jean Giraudoux, 75116 PARIS 
J* détir* recevoir cart*(t] d'*x?*ntion 

Participation aux Irait d* port 30,- F 

Nom Ci-joint Chèqu* bancaire 

Adretie CCP 

Cod* Pottal Vill* . . d'un montant d* F 


REVENDEURS NOUS CONSULTER 
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40 PRINT "Nombre de transferts : NT 

45 PLRY0 .■ 0 , 0, 0 
50 P0KE#26H,3END 

100 IF N=1 THEN GOSUB 200 : RETURN : REM Transfert 
110 T=TI : TI=TR:TR=T = REM Changer TI,TR 
120 N=N-1 ! GOSUB 100 : REM flPPel sous-routine 
130 N=N+1 

140 t=T I « TI «TR « TR=T REM Changer TI, TR 

150 GOSUB 200 ! REM Transfert intermediaire 

160 T=T0;T0-TI : TI=T: REM Changer T 8 ,TI 

170 n=N- 1 : GOSUB 100: REM 2. a.PPel sous-routine 

180 N=M+1 

190 t=T 0:T0=TI ! TI=T: REM Changer T9,TI 

195 RETURN : REM N dis9u.es transférés 

200 CLS : PRINT " Transférer disSue de "■T 8 ;" a ";TR 

205 D=N=REM Numéro du disque a transférer 

210 GOSUB 2110 

215 SOUND 1,S<D>,10:PLRY1,0,0,0=WRIT 1 00 
220 RETURN 

1000 HIRES = PRPER3=INK4*P0KE#26R,2 *POKE 26,96 « N2=INT<10/N1> 
1010 FOR T=1 TO 3 

1620 CURSET 4S+>: T-1 >*74,99, 1 = FOR I = 1T06 = CI ROLE 1,1= NEXT 
1030 CURSET 45+< T-1>*74,95,3 : CHRR48+T,0,2 
1040 NEXT 

1050 CURSET 48,99,3 

1060 FOR D=1 TO NI-CIRCLE 6+D*3*N2,1=T<1,D>=1 : NEXT 
1070 CURSET 12,160,0 : TE$="Tour d'orig. Tour interm. Tour re 
ceP. " 

1080 FOR 1 = 1 TO LEN<TE$> * CHRR RSC<MID*<TE$,I> >,0,1=CURMOV 
6 ,0,0:NEXT 

1090 PRINT" Démonstration <D) - Jeu <J> " 

1100 GET RW$ 

1110 IF RW$<>"0" RND RW THEN PING* GOTO 1100 

1120 RETURN 

2000 REM Quel dislue va etre transféré? 

2010 0=9 

2020 0=0+1: IF TCT0..D) THEN RETURN 
2030 IF D<N1 THEN 2020 

2040 PR I NT "Il n'y a. Pas de disque sur la tour" : T© : Z=1 = WRIT2 
90•RETURN 

2100 REM Transfert 

2110 CURSET 48+(T0-1>*74,99,3=CIRCLE6+D*3*N2,0 
2120 CURSET 48+<TR-1>*74,99,3 = CIRCLE6+D*3*H2,1 
? 130 T< T©, D >=0 : T< TR, D >= 1 = NT=NT +1 
2140 RETURN 

2200 REM Test fin du Jeu 
2210 DF=0. 

2220 FOR E=1 TO NI ! DF=T< 3,E >+DF•NEXT 

2239 IF 0F=N1 THEN PRINT"Felicitâtions, il vous a fallu "NT 

" tra n<= fc-rfs " : GOTHSCi 

2240 RETURN 

2300 REM Data SOUND 

2310 FOR 0=1 TO N 1 : RERD S< D > : S< D >= INT< 119*2'X S< D >/12 >+. 5 > ; N 
FXT 

2320 DfiTfi 0, 1,3,5,7, 8 , 10, 12, 13, 15 
2330 RETURN 
2990 REM Jeu 

3000 PRINT"De Quelle tour voulez-vous enlever un disque? 





3010 GET T0$ : T0=VflL<T0$> 

3020 IF T0< 1 OR T0>3 THEN PR INT "Entrée non -autorisée! " *PIN 
G'WflIT 200 : GOTO 3000 
3030 GOSUB 2010 
3040 IF Z=1 THEN Z=0=GOTO 3000 

3050 PRINT"Sur Quelle tour voulez - vous Placer ce disque? 

Il 

3060 GET TR$ : TR=VRL(TR$) 

3070 IF TR<1 OR TR>3 THEN PRINT"Entrée non autorisée! "*PIN 
G = Ufl IT 200=GOTO 3050 
3080 IF TROT© THEN 3100 

3090 CLS = PRINT "Transf ert ineffectif!"*WflIT 200 * GOTO 3000 
3100 E=0 

3110 E=E+1 = IF T< TR. E) THEN PING* PR INT" Transfert non Permis 
!" = WflIT 200 = GOTO 3050 
3120 IF E<D-1 THEN 3110 
3130 GOSUB 2110 
3140 GOSUB 2210 
3150 GOTO 3000 b 


Si vous n'êtes toujours pas 
convaincus, essayez d'écrire une 
routine itérative, ou mieux, étu¬ 
diez le problème suivant : 

Ecrire un programme capable de 
donner toutes les permutations 
des nombres 1, 2 ...» N. Les ini¬ 
tiés savent qu'un tel algorithme 
sert à calculer le déterminant 


d'une matrice carrée. 

Pour vous guider, nous donnons 
un exemple et ensuite une pre¬ 
mière version du programme 
comprenant les structures de 
sélection, d'itération et de récur- 
sion. 

Admettons N = 3, 

Nous trouvons les 3! permuta¬ 


tions différentes : 

1,2,3 

1.3.2 

2.1.3 

2.3.1 

3.1.2 
3,2,1 


Programme "Permutations". 

I REM Permutâtions 

10 INPUT ”N= "; N = N1=N 

20 FOR 1 = 1 TO N = FK I>=I = NEXT = REM Ensemble a Permuter 

39 GOSUB 100 

40 END 

100 IF N=1 THEN FORI = 1TON1= PRINTA<I>;=NEXT = PRINT = RETURN 

I I 0 B< N >=N+ 1 = REPEftT = 6< N >=EK N >- 1 
120 IFB< N >=N THEN150 

130 CK N >=B( N >-1 * fl=FK B< N > > 

140 REPEflT = C( N >=C< N >+1 = fl< C( N > >=fl( CK N >+1 > = UN TI LC< N >=N-1 = FK N > 
=fl 

150 N=N-1 
160 GOSUB 100 
170 N=N+1 

180 IFB< N >=N THEN210 
190 C< N )**N = fl=FK N > 

200 REPEflT = C< N >=C( N >-1 = FK CC N )+1 >=FK C< N > > * UNT ILC< N >=B< N > * FK B 
< N > >=fl 

210 UNTIL B(N >=1 
220 RETURN ■ 



A compter du I ,f février : 
Editions SORACOM 
La Haie de Pan 
35170 BRUZ 
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Vente Informations Services Micro-Ordinateurs 


Sétectia* 


84, bd Beanmiirhili • 78011 Paril 

Métro BadQUe ou Chemin Vert 
De 10 h à 20 h m uf dimanche et hindi 




GARANTIE : un Réseau SAV j 

L'ATMOS est livré avec 2 cassettes de (eux. une cas¬ 
sette de démonstration, son cable Périlel et son 
manuel d’utilisation en français 
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NOUVEAU I CREDITINFORMATIQUÉ - réponM an 48 haura# apré# lurnwdu douw dm «owta la Franc# 

Logiciels + Accessoires pour les appareils cités aux prix VISMO 

NOMBREUX LOGICIELS - PROGRAMMES ET JEUX VISMO 


TELEPHONE 

338.60.00, 



BON DE COMMANDE iHowii^iiniwiiiiiiiii. 

84. Boulevard Beaumarchais 75bl 1 PARIS 
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V ISMO FAIT CONFIANCE A EU KEK. A 

DES ENSEMBLES "PRETS A BRANCHER" \ 


Ensemble n° 1 monochrome comprenant 
- ORIC ATMOS unité centrale 
Magnétophone à cassettes 
: Moniteur Monochrome 12" HR 
L'ensemble . 



Ensemble n° 3 monochrome comprenant 
ORIC ATMOS unité centrale 
Moniteur monochrome 12” HR 
MICRODISC ORIC Complet 
Disquette master SEDORIC 



Ensemble n° 2 couleurs comprenant 

• ORIC ATMOS unité centrale 

• Magnétophone à cassettes 

• Moniteur couleurs spécial OR 14 
L'ensemble 


Ensemble n° 4 couleurs comprenant : 
ORIC ATMOS unité centrale 
Moniteur couleurs spécial OR 14 
MICRODISC ORIC complet 
-- Disquette master SEDORIC 

! Lecteur 3" ORIC MICRODISC 
[ avec DOS SEDORIC et controleur 2490 




[ Périphériques et Accessoires : { - 


Moniteur couleurs spécial 0R14 2750 F 

Moniteur monochrome vert HR 12" 1150 F 

CaWe pour moniteur monochrome 90 F 

Modulateur No» & Blanc UHF 295 f 

Modulateur couleurs UHF 495 F 

Magnétophone à cassettes 350 F 


Imprimante MCP 40 ptotter 4 couleurs 990 F 
Cl»e pour impnmante paialiese 150 F 

Bouleau de papier de rechange pour impr ta F 
Jeu de stylos de rechange 40 F 

Interface pour toystidi programmable 350 F 
Joystick type Ouckshot V 95 F 


Moniteurs 


Kit ORIC 1 —«ATMOS : disponible ! 


Ce Kit permet aux possesseurs d'ORIC 1 de transformer leur 
ordinateur partiellement (clavier seulement) ou totalement 
(clavier + ROM) en ATMOS La transformation ne demande 
aucune soudure nt outillage spécial Le kit comprend 
Un boitier ATMOS complet avec clavier 
mécanique, une ROM 1.1 ATMOS. un 
connecteur de clavier, un manuel ATMOS K.' VI • 
et un emballage d'origine complet 


h 



Alimentation ORIC. 150 

SEDORIC ? génial ! 490,00 FRS 


MCI4 : 2750 F. 

OR 14 : 2750 F. 

HR14 : 3600 F. 

Compatibilité directe : 

MCI4 : APPLE II avec carte RVB. APPLE 2C. ATARI Pal Com 
modore 64 et VIC 20. DRAGON. EXCELVISION HECTOR 
LASER 3000. SPECTRUM. THOMSON T07 et M05. MSX et tous 
les ordinateurs disposant d'une sortie sur prise PERITEL. 

HR 14 : APPLE avec carte HR. IBM PC et compatibles. SINCLAIR 
PER7TEL 0rdma,eUrS ^ 3Ule rés °l u,ion possédant une sortie sur prise 
OR14 : ORIC 1 ET ORIC ATMOS 


Interface 

Entrée 

Sortie 

Prix 

P6010 

Peritel 

UHF Couleurs 

495 F. 

P6015 

Peritel 

Vidéo Secam 

UHF Noir et Blanc 
UHF Couleurs 

295 F. 

P6020 

Vidéo PAL 

Peritel 

495 F. 

P6030 

Vidéo PAL 

Vidéo Secam 

790 F. 



150 F (cassette) et 200 F (disquette) 

i 


Nouveau lecteur de disquette 3' 
double têtes, double faces 
500 K*octets 
directement adressables 


JASMIN EASYTEXT 

590 F 

JASMIN MULTI-FICH 

590 F 

ASSEMBLEUR 

490 F 

MATHEGRAPH3 D 

390 F 

JASMIN-CALC 

590 F 

ORIGRAPH 

350 F 

LE REBELLE 

219 F 

LES CONQUERANTS 

219 F 

LOGO GRAPH 

390 F 


sans retourner la disquette 
LA PUISSANCE NOUVELLE 

POUR ORIC 1 ET ATMOS SFRVEZ-VOUS DU BON DE COMMANDE VISMO 

2690,00 Frs dans cette revue 

La politique ORIC : prix, qualité, services 






























































V ous voilà commandant en chef des 
forces navales françaises. Et le travail 
ne manque pas, car vous avez a inter¬ 
cepter et à détruire des escadrons que le 
nouveau dictateur suisse a envoyés du côté 
d'Ouessant... 


Phase d'interception 

Vous êtes à bord d'un torpilleur 
et vous devez vous approcher à 
moins de 2,5 milles de l'escadron 
ennemi. 

Vos commandes et indicateurs : 

La carte : Vous disposez de 44 
cartes à l'échelle 1/5000® et 
d'une à l'échelle 1/2000®. La 
carte au 1 /2000 e représente tout 
le territoire de ''chasse”. Les car¬ 
tes au 1/5000® sont numérotées 
de 0 à 45. Le chiffre des dizaines 
indique le secteur et celui des uni¬ 
tés les quartiers. Ex.: 



0 

1 

2 

3 

4 


0 







1 



X 




2 







3 







4 















u-> La croix se trouve en secteur 2. quartier 1. 

La carte p donc 21 comme numéro, 
c 
O 

3 Les cartes au 1/5000® servent à 
| retrouver la base. Lorsque vous 
= êtes sur la base, vous faites auto¬ 


matiquement le plein de carbu¬ 
rant. Pour passer d'une carte à 
l'autre, utilisez la touche A. 

Le radar : Il vous indique la direc¬ 
tion de l'escadron. Attention ! si 
celui-ci sort de la carte au 
1/2000® par le nord ou l'est, la 
partie est perdue. 

La distance : Il s'agit de la dis¬ 
tance entre votre bâtiment et 
l'escadron ennemi. 

La météo : C'est la force du vent, 
de 0 à 12. Elle influe sur votre 
consommation de fuel, sur votre 
vitesse, et peut vous faire dériver 
aléatoirement. 

La vitesse : C'est votre vitesse. 
Pour la régler, utilisez la touche 
V. 

Le cap : Le cap (vrai) de votre 
navire. Pour le modifier, utilisez 
la touche C. 

Dès que vous êtes à moins de 2,5 
milles de l'escadron ennemi, vous 
passez en phase de destruction. 

La destruction : Pour compliquer 
le jeu, vous ne voyez pas votre 



bâtiment. Vous pouvez quand 
même le déplacer à l'aide des 
touches de curseur droit (droite) 
et curseur bas (gauche). Pour 
tirer, pressez la barre d'espace. 


Les variables 
du programme 


En interception ». 



XS, YS 
DI 


ALPHA 


ME$ 

SC 

FU 

X, Y 

BX, BY 

CA 

VI 

NA 

CM 


coordonnées de 
l'escadrçn. 
distance entre le 
torpilleur et l'esca¬ 
dron. 

angle trigonométri- 
que entre le torpil¬ 
leur et l'escadron, 
évolution de la 
météo. 

échelle de la carte, 
quantité de fuel 
disponible, 
coordonnées de 
votre navire, 
coordonnées de la 
base. 

votre cap. 
votre vitesse, 
numéro de la carte 
au 1/5000®. 
consommation en 
fuel. 


En destruction 

AX et BX : coordonnées de 
votre sous-marin. 
XP(I), coordonnées des 

YP(I) : torpilles 

XB(I), coordonnées des 

YB(I) : navires de l'esca¬ 

dron. 

TX(I) : type de navire : 

cargo, sous-marin, 
vedette rapide. 

NOTE : Afin d'écrire et d'effacer 
en haute résolution, j'ai été 
amené à créer deux routines en 
langage machine. E#es sont 
situées de # 9800 à # 9850 et de 
# 9C00 à # 9D00. Aussi, si vous 
réinitialisez les caractères ou fai¬ 
tes Reset, ces routines sont 
détruites. 

Mode d'emploi de la routine pour 
écrire en HIRES : 

DOKE U 9C26, #AD00 + YX40 
+ X (0 < Y < 2000 < x < 40). 
Introduire la phrase à écrire dans 
le buffer, à partir de # 50 et rajou¬ 
ter la valeur 0 après, puis faire 
CALL # 9C00. 
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ioo rem #############*########*### 


110 REM 
120 REM 
130 REM 
140 REM 
150 REM 
160 REM 
170 REM 
180 REM 
190 REM 
200 REM 
210 REM 
220 REM 
230 REM 
240 REM 
250 REM 
260 REM 


L’ESCADRON SUISSE 


AUTEUR 


ERIC VIEL 


# 

# 

# 

# 

# 

# 

* 

« 

# 

# 

# 

# 

# 

# LOIS 57-298 ET 85-66C 

* 

# 


# 
« 
# 
# 
# 
« 
# 
« 
# 
# 

COPYRIGHT NOVEMBRE 1985# 
# 
# 
I 
# 
# 


270 REM ########################## 

1000 HIMEM#96FF:D0KE#306,10000 

1003 TEXT:GOSUB 12800:TEXT:50SÜB30000 

1005 GOSUB 12800:TEXT 

1010 SC=1 :DK=#9C26:CA=0 

1020 PAPERO:INK7:HIRES:P0KE618,2 

1030 GOSUB 11700 

1040 GOSUB 10700 

1050 GOSUB 11500 

1060 GOSUB 11600 

1070 GOSUB 10000 

1080 GOSUB 11900 

1090 GOSUB 1200C 

1100 GOSUB I2ÎOO 

1110 GOSUB 12200 

1120 GOSUB 12300 

1130 GOSUB 12*.0 

4997 PING 

4996 GETRl 

5000 GOS'JB 12500 

5100 R=C 

5110 REPEAT 

5120 : A$=KEYi 

5130 : R=R+1 

5140 UNTIL MC" OR R=7 

5150 IF A$ =, A* THEN GOTO 13800 


5160 IF Ai='V" T HEM GOTO 13000 
5170 IF Ai=‘C‘ TKEN GOTO 13100 
5180 IF At='P* THEN GETRi 
5190 GOSUB 13300 

5200 REM DEPLACEMENT DU SOUS-MARIN 
521C REM 

5220 XS=XS+SX:YS=YS+SY 
5230 DI=SQR<(XS-X> A 2+<YS-Y1*2) 

5240 DI=INT<DI*10+.5)/10:GOSUB 12200 
5253 MR=MR+1:IF MRY-61 THEN MR=INT(RND 
<11*151 

526G CURSET 200,65,1 
5270 DRAW 31*COS(ALPHA),-31*SIN!ALPHA 
1,0 

5280 IF XS=X AND YS=Y THEN 30000 
5285 IF XS>65 OR YS>50 THEN 40000 
5290 CURSET 200,65,1 
5300 IF XS=X THEN ALPHA=-PI*!YS>V):G0 
TO 5330 

5310 ALPHA=ATN((YS-Y)/iXS-X1) 

5320 ALPHA=ALPHA - PltUSCXl 

5330 CURSET 200,65,1 

5340 DRAW 3l*C03<ALPHA),-31*SIN<ALPHA 

M 

5350 ME=ME+VAL(MIDi(MES,MR,1)1-1 

5351 IF ME<0 THEN ME=0 

5352 IF ME>12 THEN ME=12 

5360 At=MID$(STRi(ME>,2):IF LEN<Aü<2 
THEN A$=*0’+Ai 
5370 Ai=AÎ+CHRî(0) 

5380 DOHEDK,#AQOO+23+135*40 
5390 FOR 1=1 TO LEN <A«1 :POKEI+«4F,ASC 
iMlD$(A$.I,l)):NEXï:CALL#9C0D 
5500 GOTO 5100 
9R97 PING 

9998 GETR$:DOKE#306,#1000 
9R99 END 
10000 REM 

10010 REM DESSIN DE LA CARTE 
10020 REM 

10030 A*=- ECHELLE : l/*+MID*<STR$;S 
C). 2)+ , 00C , 4-CHR$(0) 

10040 DOKEDK.#A000+44+9*4G 
10050 FOR 1=1 TO LEN(At1 :POKEI+#4F.AS 
C(MID<<Ai,1,1)1:NEXT:CALL#9C00 


10060 A$=MID$(STRi(INT<X/13)*10+INT(Y 
/10)),2)+* ’+CHRt(01 :MA=VAL(Ai) 

10066 IF SC=1 THEN Ai=‘GENERALE’+CHRi 

( 0 ) 

10070 DOKEDK,«A0O0+50 
10080 FOR 1=1 TO LEN(Ai):POKEI+#4F,AS 
C<niDi(At,I,l)):NEXT:CALL#9C00 
10090 FOR 1=0 TO 100 STEP 2*SC 
10100 : CURSET 19,20+1,1 
10110 : DRAW 130,0,1 
10120 NEXT I 

10130 FOR 1=0 TO 130 STEP 2*SC 
10140 : CURSET 19+1,20,1 
10150 : DRAW 0,100,1 
10160 NEXT I 

10170 Aî='CARTE’+CHRi(0):DOKEDK,HAOOO 
+44 

10180 FOR 1=1 TO LEN(Ai):POKEI+#4F,AS 
C(MIDt(Ai,1,1)1:NEXT:CALL#9C00 


10185 

GOSUB 12400 



10190 

RETURN 



10200 

REM 




10210 

REM 

ROUTINE EN LM POUR 

10220 

REM 

EFFACER LA 

CARTE 

10230 

REM 




1D240 

DOKE#BO,2+DEEK(#E?>:RETURN 

10250 

DATA 

#A9,#90 

’LDA 

#90 

10260 

DATA 

#85,#00 

’ STA 

00 

10270 

DATA 

#A9,#A1 

’LDA 

#A1 

10280 

DATA 

#85,#01 

’STA 

01 

10290 

DATA 

#A0,#O0 

’LDV 

#00 

10300 

DATA 

#A9,#40 

’LDA 

#40 

10310 

DATA 

#91,#00 

’STA 

<001 

10320 

DATA 

#C8 

’INY 


10325 

DATA 

#C0,#19 

’CPY 

#19 

10330 

DATA 

#D0,#F9 

’BNE 

L1 

10340 

DATA 

#A9.#00 

’LDA 

#00 + 

10350 

DATA 

#85,#02 

’STA 

02 

10360 

DATA 

#18 

’CLC 


10370 

DATA 

#A5,#00 

’LDA 

00 

10380 

DATA 

#69,#28 

’ADC 

#28 

10390 

DATA 

#08 

’ PHP 


10400 

DATA 

#C9,#E8 

’ CMP 

#ES 

10410 

DATA 

#D0,#02 

’BNE 

L2 

10420 

DATA 

#E6,#02 

'INC 

02 


L1 
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10430 DATA #28 

’PLP 


10440 DATA #85.#00 

’STA 

00 

10450 DATA #A5,#01 

’LDA 

01 

10460 DATA #69,#00 

’ADC 

#00 

10470 DATA #08 

’PHP 


10480 DATA #C9,#B2 

’ CMP 

#B2 

10490 DATA #D0,#02 

’BNE 

L3 

10500 DATA #E6,#02 

’ INC 

02 

10510 DATA #28 

’PLP 


10520 DATA #B5,#01 

’STA 

01 

10530 DATA #A5,#02 

’LDA 

02 

10540 DATA #C9,#Ü2 

’ CMP 

#02 

10550 DATA #F0.#O3 

’ BEQ 

L4 

10560 DATA #4C,#08,#98 

’JMP 

98C 

10570 DATA #60 

’R T S 



10600 REM 

10610 REM IMPLANTATION DE LA ROUTINE 

10620 REM 

10630 GOSUB 10200 

10640 MIRES 

10650 FOR ADR=#9B00 TC» #983D 
10660 : READ DTA 
10670 : POKE ADP.DTA 
10680 NEXT ADR 
10690 RETURN 
10700 REM 

10710 REM DESSIN DE L’ECRAN RADAR 
10720 REM 
10730 : 

10750 CURSET 200.65,1 
10760 CIRCLE 33,1 
10770 CURSET 200,65,1 
10790 GOTO 11400 
1080Ü REM 

10810 REM ROUTINE 2 EN LM POuR 
10820 REM ECRIRE PLUS VITE EN MIRES 
10830 REM 

10840 DOKE#BO.2+DEEK(#E9):RETuRN 


10850 DATA #A2.#GC 

’LDX 

#00 

10860 DATA #AO,#CO 

’LDY #00 

10870 DATA #AR,#00 

’LDA #00 

10880 DATA #85,#00 

’STA 

00 

10890 DATA #A9.#Q9 

’.DA 

#96 

10900 DATA #85,#01 

’STA 

01 

10910 DATA #18 

’CLC 


10920 DATA #A5.#0G 

’LDA 

00 


10930 DATA #75,#50 

’ADC 

50.X 

10940 DATA #85,#ÜC 

’STA 

00 

10950 DATA #A5,#01 

’LDA 

01 

10960 DATA #69,#00 

’ADC 

#00 

10970 DATA #85,#01 

’S f A 

01 

10980 DATA #C8 

’INY 


10990 DATA #C0,#08 

’CPY 

#08 

11000 DATA #D0,#EE 

’BNE 

L1 

11010 DATA #A0,#DCi 

’LDY 

#00 

11020 DATA #B1,#00 

’LDA 

<001,VL2 

11023 DATA #18 

’CLC 


11026 DATA #69,#40 

’ADC 

#40 

11030 DATA #8D,#0O,#A0 

’STA 

ADR 

11040 DATA #C8 

’INY 


11050 DATA #AD,#26,#9C 

’LDA 

9C26 

11055 DATA #18 

’CLC 


11060 DATA #69,#28 

’ADC 

#28 

11070 DATA #8D,#26,#9C 

’STA 

9C26 

11080 DATA #AD,#27,#9C 

’LDA 

9C27 

11090 DATA #69,#00 

’ADC 

#00 

11100 DATA #8D,#27,#9C 

’STA 

9C27 

11110 DATA #C0,#08 

’CPY 

#08 

11120 DATA #D0,#E2 

’BNE 

L2 

11130 DATA #38 

’SEC 


11140 DATA #AD,#26,#9C 

’LDA 

9C26 

11150 DATA #E9,#3F 

’SBC 

#3F 

11160 DATA #8D,#26,#9C 

’STA 

9C26 

11170 DATA #AD.#27,#9C 

’LDA 

9C27 

11180 DATA #E9,#01 

’SBC 

#01 

11190 DATA #8D,#27,#9C 

’STA 

9C27 

11200 DATA #E8 

’INX 


11210 DATA #B5,#50 

’LDA 

50, X 

11220 DATA #F0,#O3 

’BEO 

L3 

11230 DATA #4C,#02,#9C 

’JMP 

9C02 

11240 DATA #60 

’RTS 

L3 


11300 REM 

11310 REMIMPLANTATION DE'LA ROUTINE 2 

11320 REM 

11330 GOSUB ÎOBOO 

11340 HIRES:DK=#9C26 

11350 FOR ADR=#9C00 TO #9C57 

11360 : READ DTA 

11370 : POKE ADR,DTA 

11380 NEXT ADR 

11390 RETURN 

11400 REM 


11410 REM SUITE RADAR 
11420 REM 

11430 A$=‘RADAR’+CHR$(0) 

11440 DOKE DK.4071+IAOOO 
11450 FOR 1=1 TO LEN(A*):POKEI+I4F,AS 
C(HID$(A$,I,1));NEXT:CALL#9COO 
11460 RETURN 
11500 REM 

11510 REM AFFICHAGE DES DIFFERENTS 
11520 REM INDICATEURS 
11525 REM 

11530 DOKE DK,#AOÜO+135*40+3:A$= 1 VITE 
SSE: 00 METEO: 00 CAP: 000’+CHR$(0) 
11540 FOR 1=1 TO LEN(A$):POKEI+#4F,AS 
C(MID$(A$,I,l)):NEXT:CALL#9C00 
11550 DOKE DK,#AQOO+160*40+3:A$= * DIST 
ANCE : 00.0 GRENADES : 00*+CHRt(0) 
11560 FOR 1=1 TO LEN(A*):POKEI+#4F,AS 
C(MID$(A$,I,1)):NEXT:CALL#9COO 
11570 DOKE DK,#AOOO+185*40+3:Ai="FUEL 
:'+CHR$tO) 

11580 FOR 1=1 TO LEN(A*):POKEI+#AF,AS 
C(MID$(A»,I,1)):NEXT:CALL#9COO 
11590 RETURN 
11600 REM 
11610 REM PLEIN 
11620 REM 

11625 CLS:PRINT:PRINT* REMPLISSAGE D 
ES SOUTES EN FUEL. 1 
11628 CURSET 70,185,3:FILL 9,1,1 
11630 FOR 1=80 TO 180 
11640 : CURSET 1,185,3 
11650: DRAW 0,8,1 
11660 NEXT I 

11665 FOR 1=80 TO 180 STEP 5 :CURSET I 
,194,1:NEXT 

11670 CLS:PRINT:PRINT' REMPL 

ISSAGE TERMINE 1 :WAIT 100:CLS 
11680 FU=100 
11690 RETURN 
11700 REM - 

11720 REM INITIALISATION 
11725 REM 

11730 X=30:Y=25:BX=X:BY=Y:KX=X:KY=Y 
11740 VI=0:ME=INT(RND(1)*6) 

11750 XS=INT(RND(1)*30):SX=INT(RND(1) 
/2*10)/10 

11760 YS=INT(RND(1)*24):SY=INT(RNDi 1 ) 
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12080 RETURN 
12100 REM 

12110 REM AFFICHAGE VITESSE 
12120 REM 

12130 A$=M!B$(STR$(VI),2) 

12140 1F LENCA*)^2 THEN AM’O’+ASîGOT 
012140 

12150 A*=A*+CHR»iO) 

12160 DOKE DK.#A0O0+12+135*40 
12170 FOR 1=1 TO LEN i A* ) : POKE !+K4F, AS 
C(MID*(A*,I,l;):NtXT:CALL#9C0Û 
12180 RETURN 
12200'REM 

12210 REM AFFICHAGE DISTANCE 
12220 REM 

12225 1F DK2.5 THEN 20000 
12230 A*=M!D*(STRt(DI).2> 

12240 IF INT(D1)=DI THEN A*=A$+\0‘ 
12250 IF LEN(A$)<4 THEN A*=*0*i-A*:60T 
012250 

12260 AS=A$+CHRS(0) 

12270 DOKE DK,*AOCO+14+160*4C 
12280 FOR 1=1 TO LEN(A«):P0nEI+#4F.AS 
CIMIDtfAt,I,1)):NEXT:CALL#9C0C 
12290 RETURN 
12300 REM 

12310 REM AFFICHAGE GRENADES 
12320 REM 

12330 A*=MID*(STR*(GRi,2) 

12340 IF LENIA$K2 THEN A$='0 , +A$:S0 7 
012340 

T2350 At=A$+CHRi(0) 

12360 DOKE DK,#A00C+31+160*40 
12370 FOR 1=1 TO LEN(A*):P0KEI+#4F,AS 
C(MID*(At,I,1)):NEXT:CALL#9C00 
12380 RETURN 
12400 REM 

12410 REM AFFICHAGE DE LA BASE 
12420 REM 

12430 IF I1A022 THEN RETURN 


/ 2 * 10)/10 

11770 D1=SQR< <XS-X)»2+<YS-Ÿ)*2) 

11780 DI=INT(D!*l0+.5)/10 
11790 GR=50 : CA=ÜOO : VI =00 
11800 IF XS=X THEN ALPHA=-PI»(YS>Y):G 
OTO 11840 

11810 ALPHA=ATN<(YS-Y)/(XS-X>1 
11830 ALPHA=ALPHA - PI*(XS<X ï 
11840 CURSET 100,65.1 
>1850 DRAW 31*C0S!ALPHA),-31 *SIN(AlPH 
A), 1 

11860 CURSET 200,65,1 

11870 CURSET 0.130,3:F1LL 69,1.3 

11860 CURSET 156,0,3:FILL 100,1,5 

11881 CURSET 0,Ü.3:FILL 19,1,5 

11882 CURSET 0,20,3:F1LL 109,1,6 

11883 ME$=*111 10101011121212112112117 
21111101010101010101112121210011012' 

11890 RETURN 
11900 REM 

11910 REM AFFICHAGE CAP 
11920 REM 

11930 Ai=MID$(STR$(CA 1,2 > 

11940 IF LEN(A$K3 THEN A*= , 0 , +A*:G0T 
011940 

11950 A«=At+CHR$(0) 

11960 DOKE DK,KAOOO+32+135*40 
11970 FOR 1=1 TO LEN'A$):P0KEI+#4F.AS 
C(MID*(A$,I,1)):NEXT:CALl#9COO 
11980 RETURN 
12000 REM 

12010 REM AFFICHAGE METEO 
12020 REM 

12030 A«=MIü$(STR*iME>,2> 

12040 IF LEN(A$K2 THEN A»= , 0 , +A$:G0T 
012040 

12050 Ai=Ai+CHR$(0) 

12060 DOKE DK,#AOGO+23+135*40 
12070 FOR 1=1 TO LEN( A$ ) :POKEI+#4F,AS 
C(MIDt(At,I,1)):NEXT:CALLI9COO 


12435 IF SC=1 THEN RETURN 
12440 CURSET 62,62,3:CHAR 66,0,1 
12450 RETURN 
12500 REM 

12510 REM AFFICHAGE COMMANDES 
12520 REM 

12530 CLStPRINY* IVhtesse iCtap iP 
tause clAtrte* 

12540 PR INT' L’ escadron suis 

se. * 

12550 PRINT* *CHR$(96)‘ E 

rie Viel*; 

12560 GOTO 5100 
12600 REM 

12610 REM SAISIE VALEUR 

12620 REM 

12625 MX=0:MXS=" 

12630 REPEAT 
12640 : K*=KEY$ 

12645 : IF K*=" THEN K=0:G0T0 1266 

0 

12650 : K=ASC(KJ) 

12660 UNTIL K=27 OR (K>47 AND KC58) 0 
R K=127 OR K=13 

12665 IF K>47 AND K<58 THEN 12700 

12666 IF K=13 THEN 12720 

12670 IF K=27 THEN GOSUB 125O0:60T0 5 
100 

12680 IF K=127 AND MX>0 THEN PRINTCHR 
*(8)* 'CHR*(B); 

12690 IF K=127 AND MX>0 THEN MX=MX-1: 
MXi=LEFTt(MX*,MX):6OT0 12630 
12695 1F K=127 AND MX=0 THEN 12630 
12700 MX$=MX$+K*:MX=MX+1:PRINTK»; 
12710 IF MX<NB THEN 12630 
12720 IF MX=0 THEN MX$='0* 

12730 RETURN 
12800 REM 

12810 REM REINITIALISATION DES 
! 12820 REM CARACTERES 
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12830 REM 

12840 REM ATTENTION: NE JAMAIS TAPER 
12850 REM TAPER CALlIFSDO OU 
12860 REM CALL4EB9B.FAIRE GOSUB 12800 
12870 REM 

12880 IF PEEKi#FFF<5)=l T HEN CALLttFSDC 
ELSE CALL#FB9B 
12890 GOSUB 10600:GOTO 11300 
13000 REM 

13010 REM RE6ALGE VITESSE 
13020 REM 
13030 CLS 

13040 PRINT:PRINT’Entrez la nouvelle 
valeur : ’; 

13050 NB=2:GOSUB 12600:1F K=27 THEN 1 
3090 

13060 AS=MXS+CHRS(0):VI=VAl(MXS): IF V 
I>30 THEN 13095 

13065 1F LEN(A*X3 THEN AS=*0’+AS:G0T 
0 13065 

13070 DOKEDK,#AOOO+12+135*40 
13080 FOR 1=1 TO LEN(AS>:P0KE!+#4F,AS 
C(KIDS<AS.1,1)):NEXT:CALL#9COO 
13090 GOSUB 12500:60TO 5100 
13095 CLS:PRINT:PRINTCHRSI27)’L ER 

REUR D’INTERVALLE !!!*:HAIT 200:GOTO13 
030 

13100 REM 

13110 REM REGALGE CAP 
13120 REM 
13130 CLS 

13140 PRINT:PRINT*Entre: la nouvelle 
valeur : 

13150 Nî=3:GOSUB 1260*?: IF K=27 THEN ï 
3190 

13160 AS=M X S+ CHRS(0):CA=VAL(MX*> : TF C 
A.'359 THEN 13195 

13165 IF LENI AS) <4 THEN AS=’0’+AS:S0T 
0 13165 

13170 D0KEDK,#APfin+32+135*40 
13180 FOR 1=1 T _EN(AS):P0KEI+#4F.A5 
C(MIDS(AS,I,l))::£XT:CALUt'»COO 
13190 GOSUB 12500:GOTO 5100 
13195 CLS:PRINT:PRINTCHR$(27) , L EF 
REUR D’INTERVALLE ' ' ":WAI T 200:60TO:3 
030 

13300 REM 

13310 REM DEPLACEMENT DU TORPILLEUR 
13320 REM 

13325 5A=CA#PI/180 

13330 AX= SIN(GA):AY=COS(GA) 

13340 IF VI—ME<0 “HEN 13450 
13350 AX=AX*(XVI-ME)/10):AY=AY*((VI—rt 
E)/10) 

13360 KX=X:KY=Y 

13370 X=X+1NT(AX*1C)/10:Y=Y+INT(AY* 1D 
)/10 


13380 IF X>65 OR Y>50 THEN 40030 
13390 IF X<0 OR Y<0 THEN 40000 
13400 IF INT(X)=30 AND INT(Y)=25 AND 
VI>0 THEN GOSUB116G0:VI =0 :GOSUBi21CC 
13405 IF INT(X)=30 AND INT(Y)=25 THEN 
FL=TRUE:PP=0 ELSE FLAG= FALSE 
13410 IF X=XS AND Y=YS THEN 30000 
13420 IF SC=5 THEN 13600 
13430 CURSET 20+INT(KX)*2,119-INT(KY) 
# 2,0 

13440 CURSET 20#INT(X)#2,119-INT(Y)*2 

,1 

13450 CM=(VI+ME)/12:IF VI=0 THENCM=1 
13460 FOR I=80+FU TO BO+FU-CH STEP-1 
13470 : CURSET 1,185,0 

13480 : DRAW 0,8,0 

13490 NEXT 

13500 FU=FU-CM:IF FU<0 THEN 40000 
13510 RETURN 

13600 NM=INT(X/13)#10+INT(Y/10) 

13610 IF NMOMA THEN CALL#9800:GOSUB 
10000:MA=NH:GOTO 13640 
13620 CURSET XX#10+22,YY*10+22,3 
13630 CHAR 88,0,0 

13640 XX=INTt(X/13—INT(X/13))*13):YY= 
<Y/10-INT(Y/10))#10:YY=9-INT(YY) 

13645 IF FLAG THEN 13670 

13650 CURSET XX#10+22,YY*10+22,3 

13660 CHAR 88,0,1 

13670 GOSUB 12400 

13680 GOTO 13450 

13800 REM 

13810 REM CHANGEMENT DE CARTE 
13820 REM 

13830 IF SC=1 THEN SC=5 ELSE SC=1 
13840 IFSC=5THENXX=INT((X/13-INT(X/13 
))*13):YY=< Y/1C-INT(Y/10))#1C:YY=9-INT 
(YY) 

13850 CALLS9800 

13860 CURSET 0,0,3:FILL 19,.,2 
13870 CURSET 0,20,3:F1LL 109,l,t> 

13880 GOSUB 10000 
13890 GOTO 5100 

20000 GOSUB12800: TEXT:CLS :PAPER1: INK 
2:P0KE 618,10 

20010 AS=‘L’ESCADRON SUISSE ’+CHR 

$(96)+' 1985 ERIC VIEL’ 

20020 DOKE 18,#BB80:PRINTA*:POKE #BBA 
8,17 

20030 PRINT:PRINT:PRINT:PRINT" E 

SCADRON ENEMI INTERCEPTE’ 

20050 PRINT:PRINT:PRINT* FE 

CILITATIONS !* 

20060 PRINT:PRINT:PRINT:PRINT’ II vou 
s faut maintenant le détruire’ 

20070 PRINT’a ’PK’X, et ce dans les o 
lus brefs' 

20080 PRINT’delais. Vous n’avez plus 


| que’ 

20090 PRINTINT(FU)* unités de fuel. 
Bonne chance !* 

20100 IF PEEK(IFFF9)=1 THEN D=1 ELSE 
D=0 

20110 PLOT D+5,25,4:PL0T D+9,25,’ PRE 
SSEZ UNE TOUCHE.’ 

20120 GETRS 

20130 PAPERO:INK6:CLS 

20140 W=0 

22000 DÛKE1306,#1000 
22010 RD$=’00000000005631150000000032 
2463630028080828636362’ 

22020 RDS=RDS+ 1 0301010331633100000000 
32626362000007020207633100041414141431 
3121’ 

22030 FORI=1T0111 STEP2 
22040 P0KE46856+INT<1/2),VAL(MI DS(RDS 
,I,2)):NEXTI 

22050 RDS= * 00000012120000000000303030 
300000006363636363630034203060284202’ 
22060 F0RI=1T063 STEP2 
22070 P0KE46912+INT(I 12 ) ,VAL(MIDS(RDS 
, 1,2) ) : NEXT I 
22080 P0KE618,10 
22090 REM 

22100 REM DESSIN TERRAIN 

22110 REM 

22120 REM (RE(INITIALISATION 
22130 REM 
22135 REM 

22140 CLS:PAPERO:INK7:P0KEI26B,20 
22150 F0RI=1 TO 42:PRINT:NEXTI 
22160 BX=19:BY=25:SM=0:VR=0:CG=0:SC=0 
:MN=0 

22170 F0RI=1T03:YP(I)=0:NEXT 
22180 F0RI=1T03:XB(I)=0:NEXT:FU=50 
22i°0 DK=INT(FU#100) 

22192 D0KE1276.DK 
22195 REM 

22200 REM JEU 

22205 REM 

22210 D0KE1306,IFFFF:FF=FALSE 
22220 AX=BX 

22230 DP=PEEK < #208): IF DP=56 THEN 223 
00 

22235 IF FF=TRUE THEN 22260 
22240 BX=BX+2*(DP=172)-2* < DP=180) 
22250 IF BX<1 OR BX>37 THEN BX=AX 
22260 IF DP0132 THEN 22300 
22270 FOR 1=1 TO 3 

22280 1F YP(I)=0 THEN YP(I)=BY-1:XP(I 
)=BX:GOTO 22300 
22290 NEXT 1 
22300 FOR 1=1 TO 3 
22310 IF YP(I)=0 THEN 22350 
22320 PLOT XPdl+D.YPd),’ * 

22330 IFYP(I)>11THENYPCI)=YP<I)-l:PLO 
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22730 IF TY(ï>=2 THEN SC=SC+5Û :S«=SM 
♦1::RETURN 

22740 IF TY(T)=3 THEN SC=SC*20 :CG=CS 
+1:RETURN 
22750 SHOOT 

22760 PLOT XP(I)+D,YP(I)-l, l, h*:G0SUB2 
2710 

22770 PLOT XP<I)+D,YP(IM,*i*:G0SUB2 
2710 

22780 PLOT XP(I)+D,YP(l)-l/j , :60SUB2 
2710 

22790 EXPLODE 

22800 PLOT XPII)+D,YP(I)-l,■j*:G0SUB2 
2710 

22810 PLOT XPCI)+D,YP(I)-l,"i* :60SUB2 
2710 

22820 PLOT XP(I)+D.YP(I)-l,“h*:G0SUB2 
2710 

22830 PLOT XP<I)+D,YP(I)-1/ ’ 

22840 PLOT XPU>+D,YP(I),* *:MN=MN+1: 
SC=SC+5 

22850 :XP(I)=0:YP(I)=0:RETURN 
22860 NB=NB*1 :TY(I)=INT(RND(1)*3)+1 
22870 XB(I)=35: IF TY<1)=2 THEN YBUi= 
12 ELSE YB(I»=10 

22880 W=W*1:IF W=32 THEN 23000 
22885 RETURN 
22890 GOTO 23000 
22900 END 

22910 P$= , f*:0*=* ‘:V=3:RETURN 
22920 P*=*de*:0$=* *:V=2:R£TURN 
22930 P<=* abc* :<*=* ":V=1:RETURN 

23000 CLS:PAPER 1:INK2:G0SUB 12800:TE 
XTsPOKE 618,10:D0KE#30o,10000 
23005 K$=KEV*:K$=KEY* 

23010 PRlNT:PRINT:PRINT:PRINT'Le dern 
1 er bateau vient de passer...' 

23020 PRINT:PRINT'Au total, trente de 
ux batiments sont' 

23030 PRINT*passes sous votre feu.Vou 
s en avez* 

23040 PRINT’coule *;:NV=C5+VR+SM:PRIN 
TNV:'. Ce qui représente * 

23050 PRINT’un pourcentage de ": :PP=I 
NT ( NV/32*100*.5): PRINTPP*7. * 

23060 PRINT* Votre grade vous iinpos 
ait d’en * 

23070 PR INT "détruire *PK*V; 

23080 IF PK<=PP THEN A$=*FELICITATION 
S " " ELSE A$=* DOMMAGE "" 

23090 PRINTCHR$(27)*L‘Ai 
23100 IF PK>PP TIEN 23200 
23110 PRINTrPRlNT'Mais ia narine suis 
se est très ' 

23115 PRINT*puissante, et un second e 
scadron vientd’*: 

23120 PRINT’etre repere 'Vous devrez 


TXP(Il+D.YP(I).'g*:GOTO 22340 
22335 XP(I)=OsYP(I)=O:G0TO22350 
22340 IF SCRN(XP(I)+D,YP(I)-l)<732 Th 
EN GOSUB 2252C 
22350 NEXT I 
22360 FOR 1=] TO 3 
22370 IF XBiI1=0 THEN GOSUB 22860 
22380 XA=XB(I) 

22390 ON TYU) GOSUB 22910,22920,2293 
O 

22400 IF XB(I)>V THEN XB<I)=XB(I)-V:G 
0T0 22430 

22410 PLOT XA+D,YB(I),0$ 

22420 XB( H=0:NB=NB-1:SÛT0 22440 
22430 PLOT XA+D,YB(1),0$ :PL0T XB(I)+ 
D,YB(I),P* 

22440 IÆXT 

22460 DE=DEEK(#276):IFFFTHEN22220 
22470 DE=INT<DE/285) 

22480 PLOTD+1,1,18:PLOTD+DE,1,16 
22490 IF DE<5 OR DE>650 THEN FF=TRUE 
22500 GOTO 22220 
22510 REH 

22520 REM ****** TOUCHE ****** 

22530 IF SCRN(XP(I)+D,YP(I)-1)=103 TH 
EN RETURN 

22540 1F SCRN< XPII)+D,YP(I>-1)=107 TH 
EN 22750 

22550 SHOOT :T=0:REPEAT:T=T+1 
22560 UNTILXPtI>>=XB(T>ANDXP<I K=XB(T 
>+TY(T) AND YB(T)=YP(I)-1 
22570 60SUB 22720 

22580 EXPLODE: PLOTINT(RND(1 !*38)+D. IN 
T(RMD(1>*10+11>."k* 

22590 PLOT XP<I)+D,YP<I)-l,*h*:G0SUB2 
2710 

22600 PLOT XP(I)+D,YP(I)-l,*i , :G0SUB2 
2710 

22610 PLOT XP(I)+D,YP(II-l,*j*:G0SUB2 
2710 

22620 PLOT XPU )+D, YP< I )-1, *j* :S0SUB2 
2710 

22630 PLOT XP(I)+D,YP(I)-1,*i*:G0SUB2 
2710 

22640 PLOT XP( I )+D, YP( D-J, *h* :G0SUB2 
2710 

22650 PLOT XP<I)+D.YP(I)-1,* * 

22660 PLOT XP(I)*D,YP(I),* * 

22670 ON TY(T) GOSUB 22910,22920,2293 

0 

22680 PLOT XB(T)+D. YB(T),Oi 

22690 XB(T)=0:YB<T)=0:XP(I)=0:YP<I>=C 

22700 RETURN 

22710 F0RQ=1 TC 13:NEXT:RETURN 
22720 IF TY(T)=1 THEN SC=SC+lOO:VR=VR 
*1::RETURN 


le detruirea'; 

23130 PK=PK+15:IF Pt085 THENPK=85 
23140 PRINTPK'7.. C’est sûrement faisa 
ble pour* 

23150 PRINT’un homme de votre trempe 

i • 

23160 PRINT :PRINT:PRINT:PRINT:PRINT: P 
RINT' *; 

23170 PRINTCHR<<27)'D APPUYEZ SUR UNE 
TOUCHE*:GETR» 

23180 GOTO 1005 

23200 PRINT:PRINT* Le haut commande 

ment a décidé de* 

23210 PRINT'vous donner une autre cha 
nce.’ 

23220 PRI NT : PRINT"Desîrevous la ten 
ter ? (O/NI* 

23230 REPEAT:K$=KEY$:UNTIL K*=*0* OR 

K$="N* 

23340 IF K$=*N* THEN HIRES:TEXT: PAPER 
0:INK4:END 

23350 GOSUB 330D0:G0T0 1005 

29999 END 

30000 TEXT:CLS:PAPERî: INK 2:PÔKE618,1 
0:D<XE#306,10C00 

30010 FOR I =#BBA4 TO #BBA7:P0KE1,32:N 
EXT 

30020 PRINT:PRINTCHR*£4)* *CHR$(27)' 
J L’ESCADRON SUISSE* 

30025 PR I NT CHR$(4) 

30030 D=PEEK(IFFF9):IF D>1 THEN D=0 
30040 PLOT D+2,2,6:PL0T D+2,1,4 
30050 PRINT:PRINT:PRINT:PRINT 
30060 PRINT* La Suisse vient de subi 
r un coup * 

30070 PRINT'd’etat. Le dictateur, un 
fou dangereuxse*j 

30080 PRINT* réclamant du FLD,a decid 
e d’envahirle 
30090 PRINT'monde." 

30100 PRINT* Un de ses escadrons a e 
te repere * 

30110 PRINT'tot ce matin dans le rail 
d’ouessant,* 

30120 PRINT'se dirigeant vers la foss 
e d’Ouessant* 

30130 PR INT * Au sein de cet escadron, 
le zinder 31* 

30140 PRINT’un sous marin nucléaire u 
ltra * 

30150 PRINT'sophistique. Deux de nos 
espions, * 

30160 PRINT’Eric Bouyer et Yanick Bou 
ree ont * 

30170 PRINT'reussit a dérober les pla 
ns.* 

30180 PRINT:PRINT’Les voicis:* 

30190 PRINT:PRINT:PRINT:PRINT* *CHR 
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,0,1 


*(27)*DAPPUYEZ SUR UNE TOUCHE 1 :GETR* 
31000 Z«*=‘535373875575738755* :ZA*="B 
6137535335 IB* 

31010 FORI=1T017 

31020 ZZ*=HID*(ZH*< 1,1 ):ZS*=HID*(ZA*, 
M) 

31030 ZZ=VAL < ZZ*):ZS=VAL(ZS*) 

31040 PLAYJ,0,0,0 
31050 MUSIC1,3,ZZ,8 
31060 WAITZS+10 
31070 NEXTI:WAIT20:PLAYO,0.0,0 
31080 TEXT:PAPER0:INK4:HIRES:PRINTCHP 
*(17) 

31090 CURSET12,78,0:DRAUÜ,22,1 :DRAW12 
. 10.1 

31100 DRAW12.0,1 :DRAW10,-10.1:DRAW-3, 

3.1 

31110 DRAW 15,0,ltDRAW 5.5.1:DPAW 127 
. 0.1 

31120 DRAM 36,-3,1:DRAW 4,-2,l:DRAW 2 
.-4.1 

31130 DRAW 1,-8,1:DRAW0,-10,1 
31140 DRAW -1,-4,1 :DRAW-2,-2,1 :DRAW - 
32,-2.1 

31150 DRAW -4.-1,1:DRAW -6,-2,1 
31160 DRAW -7.-12,1:DRAW -2,-5,1:DRAW 
-2,-2.1:DRAW -32,0,1 
31170 DRAW -3,8,1:DRAW -5,-10.1 :DRAW - 

4.3.1 

31180 DRAW -42,0,1:DRAU -20,5,1 : DRAW 
-23,0.1 

311RO DRAW -12,-10,1:DRAW -12,0,1:DRA 
W -11,11,1 

31200 CURSET 30,85,0:CHAR 68,1,1 
31210 CURSET 18,83.0:DRAW 4,5,1:DRAW6 


31220 CURSET 33,88,0:DRAW 8,0,1:DRAW 
5,-3,1 

31230 CURSET 74,77.0:DRAW 50,2,lrDRAW 
40,0,1 

31240 DRAW10.-1,1:DRAW10.-2,1:DPAW8,- 
4.1 

31250 CURSET214,80,0:CHAR72,1,1 
31260 CURSET214,RO,0:CHAR72,1,1 
31270 CURSET150,51,1:DRAWO,-10,1:DRAW 
2,0.1 

31280 DRAW-4.0,1 

31290 CURM0V9,10,1:FOR1=OT01:DRAW1,—1 
0,1 :NEXT 

31300 CURH0V9,20,1:DRAWO,-12,1 
31310 CURMOV-2,-4,0:CHAR123,0,1 
31320 CURSET148.60.0 
31330 ZX*=*Z.31" 

31340 F0RI=1T0LEN (ZX$) 

31350 CHARASC(MlD*(ZXt,I,1)),0,1 
31360 CURftOV6,ü,C 
31370 NEXT 

31380 CURSET40,150,0 
31390 ZCt=*Z.I.N.D.E.R 31* 

31400 F0RI=1T0LEN (ZC*) 

31410 CHARASC(HID*(ZC*,I,1)).0,1 
31420 CURMOVIO.O.O 
31430 NEXT 

31435 CURSET20,180,0 
31440 ZC*=CHR*(96)+* Eric Bouyer & Va 
nick Bouree“ 

31450 FORMTOLEN (ZC*) 

31460 CHARASC(MID*(ZC*.1,1)),0.1 
31470 CURM0V7.0.0 
31480 NEXT 

31490 CLS:PRINT:PRINT*Lorsque vous au 


rez presse une touche* 

31500 PRINT'ces plans s’autodetruiron 
t. 1 

31510 GETR*:TEXT:POKE618,10:PAPER1: IN 
K2 

31520 PRINT:PRINTCHR*(4)* *CHR*<27)* 
J L’ESCADRON SUISSE" 

31525 PRINTCHR*(4) 

31540 PLOT D+2,2,6: PLOT D+2,1,4. 

31550 PRINT:PRINT:PRINT 
31560 PRINT* Votre mission se compo 
se de deux" 

31570 PRINT'phases. Une d’interceptio 
n et une ’ 

31580 PRINT:PRINT*PHASE D’INTERCEPTIO 
N : Vous etes a ' 

31590 PRINT’bord d’un torpilleur de 1 
a marine* 

31600 PRINT'nationale. Vous dspose: d 
'un * 

31610 PRINT'appareiliage ultra modem 
e. compre-" 

31620 PRINT'nant un radar, oui vous i 
ndique la ' 

31630 PRINT’position de l’escadron pa 
r rapport a‘ 

31640 PRINT'votre batiment, un calcul 
ateur de * 

31650 PRINT'distance, qui vous indiqu 
e en milles* 

31660 PRINT*la distance entre votre n 
avire et* 

31665 PRINT'l’escadron. Vous dispsez 
aussi de* 

31667 PRINT'de plusieurs cartes, a de 
ux* 
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31670 PRINT'echelles (1/1000 et 1/500 
0). Le ■ 

31680 PRINT'changement de l’une a l’a 
utre se fait* 

31685 PRINT’par pression sur la touch 
e ’A\* 

31690 PRINT: PP INT :PR1NT" *CHR$(27)* 
D APPUYEZ SUR UNE TCKJCHE" :6ETR* 

31700 CLS 

31720 PRINT:PRINTCHR*(4)" •CHP*(27 >’ 
J L’ESCADRON SUISSE* 

31725 PRINTCHR$(4) 

31740 PLOT D+2.2,6:PL0T D+2,1,4 
31750 PRINT:PRINT:PRlNT’Le passage su 
r la base fait faire* 

31760 PRINT*automatiquement le plein 
de carburant* 

31770 PRINT'et remet votre vitesse a 
zéro. Pour iamodifier *; 

31780 PRINT*pressez î a touche V, et * 
31790 PRINT'entrez la nouvelle valeur 
. Si vous ' 

31800 PRINT'desirez annuler votre ord 
re, pressez* 

31810 PRINT*la touche ESCape. L’ajust 
âge du cap* 

31820 PRINT'se fait de «eme maniéré, 
en pressant* 

31830 PRINT*la touche ’C’. Le jeu se 
déroulant en* 

31840 PRINT*temps reel, il est possib 
le d’arreter* 

31850 PRINT'momentanement le programm 
e en pressantla *; 

31860 PRINT*touche P.Il suffit alors 
de pressern’’; 

31870 PRINT* importe Quelle touche dou 
r continuer* 

31880 PRINT’a jouer. La meteo indique 
la force du’ 

31890 PRINT'vent. Elle a une influenc 
e directe * 

31900 PRINT*sur votre consommation de 
carburant* 

31910 PRINT’et sur votre vitesse. De 
plus,* 


31920 PRINT*les zones aue vous traver 
sez étant * 

31930 PR INT‘soumises a des courants v 
ariables, ne* 

31940 PRINT'vous etonnez pas de deriv 
er. * 

31950 PRINT:PRINT* *CHR$(27)*D AP 
PUYEZ SUR UNE TOUCHE*;:6ETR$ 

32000 as 

32010 PRINT:PRINTCHR*(4)* *CHRt(27)* 
J L’ESCADRON SUISSE* 

32020 PRINTCHR$(4) 

32030 PLOT D+2,2,6:PL0T D+2,1,4 
32040 PRINT'La phase d’interception p 
rend fin des* 

32050 PRINT’que la distance entre vot 
re navire et* 

32060 PRINT*l’escadron est inferieure 
a 2,5 milles* 

32070 PRINT'PHASE DE DESTRUCTION : Vo 
us Quittez* 

32080 PRINT'votre torpilleur pour un 
sous marin* 

32090 PRINT’conventionel. Les trente 
deux bateaux* 

32100 PRINT'de l’escadron suisse vont 
passer sous* 

32110 PRINT*le feu de votre navire. V 
ous devrez ' 

32120 PRINT’en détruire un certain do 
urcentage,* 

32130 PRINT'suivant votre grade. Afin 
de ne pas* 

32140 PRINT'risquer de se faire recer 
er par les* 

32150 PRINT'batiments enemis, votre s 
ous marin a" 

32160 PRINT'ete dote d’un système de 
contre-* 

32170 PRINT'mesure électronique, ce q 
ui l’empe-* 

32180 PRINT’che d’apparaître a l’ecra 
n. Pour le* 

32199 PRINT’deplacer, utilisez la fie 
che de ' 

32200 PRINT'curseur droit pour aller 


a droite et* 

32210 PRINT*celle dt curseur bas p 
our aller a’ 

32220 PRINT'gauche. Si votre indicate 
ur de fuel* 

32230 PRINT'en haut a gauche de l’ecr 
an, tombe a* 

32240 PRINT*zéro, vous ne pouvez plus 
vous depla-* 

32250 PRINT'cer. Pour lâcher vos torp 
il les. * 

32260 PRlNT*utlisez la barre d’espace 

t 

32270 PRINT* *CHR$(27)*D APPUYEZ S 
UR UNE TOUCHE*;:GETR$ 

33000 CLS:PRINT:PRINT:PRINT* SELECTI0 
N DU GRADE* 

33010 PRINT* ===--=====■ 

33020 PRINT:PRINT:PRINT*I. CAPITAINE 

I 

33030 PRINT:PRINT*2. COMMANDANT*: PRI 
NT 

33040 PRINT*3. AMIRAL* 

33050 PRINT:PRINT:PRINT*VOTRE CHOIX ? 

i 

33060 REPEAT:K$=KEY$:UNTIL KO’O* AND 

K$<*4* 

33080 PK=20+VAL(K$)»15 
33090 RETURN 

40000 TEXT:P0KE61B,10:PRINT:PRINT* 
VOUS VENEZ DE VOUS ECHOUER * 

40010 PRINT‘LAMENTABLEMENT SUR VOS TE 
RRES ...* 

40020 GOTO 40100 

40050 TEXT:P0KE618,10:PRINT:PRINT* 
VOUS VENEZ DE PENETRER DANS* 

40060 PRINT'LES EAUX TERRITORIALES SU 
ISSES... * 

40070 PRINT'VOUS ETES CAPTURE.* 

40100 PRINT: PR INT :PRINT:PRINT* VOULEZ 
VOUS REJOUER ?* 

40110 REPEAT:K$=KEY$:UNTIL h'$=*0* OR 

K$=*N" 

40120 IF K$=*N* THEN END 
40130 CLEAR:GOSUB 12800:TEXT:G0SUB 33 
000:60TO 1005 ■ 


Une ligne téléphonique est à votre disposition, vous met¬ 
tant en contact direct avec la rédaction. Ceci est un ser¬ 
vice sans égal ! Respectez simplement les horaires et les 
jours que nous vous indiquons : 

MERCREDI de 9 h à 12 h et de 14 h à 17 h. 
VENDREDI de 9 h à 12 h seulement. 

Tout appel en dehors de ces créneaux sera refoulé : ne 
dépensez pas inutilement votre argent ! 

Le numéro : 99 , 52 , 98 , TI* 
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Eric VIEL 



LES PIEDS DANS LE 


£ e mois dernier, nous vous avions expliqué comment un 
joueur pouvait déplacer un sympathique petit bonhomme 
nommé Freddy. Mais nous vous avions passé sous silence 
une partie de ce déplacement. 


En effet, lorsque Freddy chute 
depuis un étage ou fait un saut, 
il n'a plus le contrôle de sa tra¬ 
jectoire. Il faut donc que l'ordina¬ 
teur dirige Freddy, afin de simu¬ 
ler les effets de la pesanteur 
(simuler seulement, car il n'était 
pas question de passer par les 
formules du théorème du centre 
d'inertie). Nous avions défini un 
indicateur, nommé CTRL qui pre¬ 
nait la valeur 0 si le joueur ne 
contrôlait pas Freddy, et qui per¬ 
met d'orienter le programme en 
ligne 1 59 vers la routine NTCRL, 
que nous détaillons ce mois-ci. 
Le début de cette routine ajoute 
les indicateurs C/B et C/DX et 
retranche C/GX et C/H aux coor¬ 
données de Freddy. Comme 
C/GX est à un, alors que C/DX 
est à zéro (ou le contraire), le 


résultat de ces deux opérations 
sera une soustraction d'une unité 
aux coordonnées de Freddy, 
donc un déplacement d'une case 
vers la gauche. De même, C/H 
étant à 40 alors que C/B est à 0, 
le résultat final sera une soustrac¬ 
tion de 40, donc la montée d'une 
ligne. 

REMARQUE : En ligne 390-391, 
on teste si le registre A est à zéro, 
mais d'une façon un peu particu¬ 
lière. 

En effet, on écrit 
LDA C/H 
BEQ> 5 

et l'on omet de faire la comparai¬ 
son avec l'ordre CMP#0. Il faut 
savoir que, si un registre est 
chargé avec une valeur nulle, le 
6502 met automatiquement Z à 
1. L'instruction CMP#0 n'est 


donc pas nécessaire (si un regis¬ 
tre prend une valeur non nulle, Z 
passe évidemment à 0). 

La routine Point 

Il ne sera pas fait de commentaire 
détaillé. Le principe : les mémoi¬ 
res NCPAS et NPAS contiennent 
respectivement le nombre de 
points déjà mangés et le nombre 
total de points à manger. La 
valeur d'un point ayant été arbi¬ 
trairement fixée à 17, la sous- 
routine AFFICH sera appelée 17 
fois. 

La sous-routine AFFICH 

Elle travaille directement sur la 
mémoire écran. Elle incrémente 
de 1 le code ASCII du chiffre le 
plus à droite. S'il est passé à 58 
(les :), on le remet à zéro et on 
effectue la retenue, en vérifiant 
s'il y a à nouveau retenue sur le 
nombre. 


Lignes 331 à 360 

Ajoute les valeurs C/B et C/DX, retranche C/H et C/GX. 
Lignes 361 à 364 

Ajoute l'à tout (permet de savoir depuis combien de temps 
Freddy est en saut). 

Lignes 365 à 370 

Teste si le caractère est un e ( = point que Freddy doit manger). 
Lignes 371 à 373 

Saut à la routine Point (qui sera détaillée plus tard) et se bran¬ 
che au traitement du caractère Espace. 

Lignes 374 à 375 

Teste si le caractère est un a (symbole du sol). Dans ce cas, 
on se branche à la routine EOJP, qui traite la fin du saut. 
Lignes 376 à 389 

Teste si l'on est en descente. Si oui, teste si le caractère est 
un b ou c ( = éléments de l’ascenseur) et se branche éventuel¬ 
lement à la routine LIFT. Autrement, considère le caractère ren¬ 
contré comme un monstre, positionne à 1 le drapeau de mort 
($BFE1 ) et redonne la main au Basic. 

Lignes 390 à 402 
Sous-routine EOJP. 

Linges 390 à 391 

Teste si l'on était en descente (cf. : texte). Dans ce cas, va à 
la ligne 425 (mouvement refusé, CTRL = 1, le joueur reprend 


la main). 

Lignes 392 à 401 

Le joueur était donc en saut, il doit redescendre en ligne droite 
(car l'on ne tient pas compte du fait que son vecteur vitesse 
initiale n'est pas vertical). On met donc C/B à 40 et C/H à 0 
(descente) et C/DX et C/GX à 0 (en ligne droite). Le mouve¬ 
ment n'est pas validé (lignes 398 à 401 ) et on repart au début, 
à NCTRL, de façon à ne pas passer un tour. 

Lignes 403 à 437 

Traitement du mouvement autorisé. 

Lignes 403 à 408 

On efface l'ancienne position. On valide les coordonnées. 
Lignes 409 à 41 5 

On se prépare pour tester la case du dessous. 

Lignes 416 à 420 

Est-on en montée ? Oui, est-ce que c'est TOUR (qui permet de 
savoir depuis combien de temps on est en saut) ? Si oui, fin 
du saut, autrement, on corrtinue. 

Lignes 421 à 431 

Le caractère du dessous est-il un a ( = sol) ? Oui, on restaure 
00 et 01 détériorées en lignes 409 à 415, on redonne le contrôle 
au joueur, et on va à la routine d'affichage. 

Lignes 432 à 432 

On restaure 00 et 01. Saut à la routine d'affichage. 
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• 

1147 


321 («MM» 



5IF5 

85 00 

399 

STA «00 



5167 


322 : 



51F7 

A5 03 

400 

LDA *03 


• 

5167 


323 : SS m NCTRL 


51F9 

85 0! 

401 

STA «01 



5167 


324 ! 



5IFB 

4C 67 51 

402 

JMP NCTRL 

iFIN DU SAUT 

A 

5167 


325 îEST ACTIVE QUAND LE JOUEUR EST 


51FE 

A9 20 

403 >3 

LOA «32 


• 

5167 


326 iEN CHUTE OU EN SAUT. 


5200 

81 02 

404 

STA (02,1) 



5167 


327 | 



5202 

A5 00 

405 

LOA *00 


A 

5167 


328 ;t»«i 



5204 

B5 02 

406 

STA «02 


w 

5167 


329 | 



5206 

A5 01 

407 

LDA *01 



5167 


330 ; 



5208 

85 03 

408 

STA *03 


• 

5167 

18 

331 NCTRL 

CLC 


520A 

18 

409 

CLC 



5168 

A5 00 

332 

LOA *00 


5 COB 

A5 00 

410 

LDA *00 



5I6A 

60 03 4F 

333 

ADC C/B 


5200 

69 28 

411 

ADC *40 


• 

516D 

85 00 

334 

STA *00 


520F 

85 00 

412 

STA *00 



516F 

A5 01 

335 

LOA *01 


5211 

A5 01 

413 

LDA «01 


A 

5171 

69 00 

336 

ADC *00 


5213 

69 OO 

414 

ADC «00 


w 

5173 

85 01 

337 

STA fOl 


5215 

85 01 

415 

STA *01 



5175 

18 

338 

CLC 


5217 

AO 04 4F 

416 

LDA C/H 


• 

5176 

A5 00 

339 

LOA *00 


521A 

FO 07 

417 

BEQ >4 



5178 

60 02 4F 

340 

ADC C/D» 


52IC 

AD 05 4F 

418 

LOA TOUR 



5176 

85 OO 

341 

STA 100 


521F 

C9 04 

419 

CMP *4 

[FIN DU SAUT 

• 

5I7D 

A5 01 

342 

IDA SOI 


?? 






517F 

69 00 

343 

ADC 100 


5221 

FO BB 

420 

BEQ EOJP 


a 

5181 

85 01 

344 

STA *01 


5223 

A2 00 

421 >4 

LDI «OO 


w 

5183 

38 

345 

SEC 


5225 

Al 00 

422 

LDA (00,0 



5184 

A5 00 

346 

LOA «00 


5227 

C9 61 

423 

CMP V 


• 

5186 

ED 04 4F 

347 

SBC C/H 


5229 

00 10 

424 

BIC >4 



5188 

85 00 

348 

STA *00 


522B 

A5 02 

425 >5 

LDA *02 



5186 

A5 01 

349 

LDA *01 


5220 

85 DO 

426 

STA *00 


• 

5180 

E9 00 

350 

SBC *00 


522F 

A5 03 

427 

LDA 103 



518F 

85 01 

351 

STA *01 


5231 

85 01 

428 

STA *01 


a 

5191 

38 

352 

SEC 


5233 

A9 01 

429 

LDA *01 


w 

5192 

A5 00 

353 

LDA *00 


5235 

80 00 4F 

430 

STA CTRL 



5194 

ED 01 4F 

354 

SBC C/61 


5238 

4C 29 51 

431 

JMP VDUL 


• 

5197 

85 00 

355 

STA *00 


523B 

A5 02 

432 >4 

LOA *02 



5199 

A5 01 

356 

LOA *01 


523D 

85 00 

433 

STA *00 



5196 

E9 OO 

357 

SBC *00 


523F 

A5 03 

434 

LDA «03 


• 

5190 

85 01 

358 

STA *01 


5241 

85 01 

435 

STA *01 



519F 


359 i CETTE PARTIE ETAIT DESTINEE A MODIFIER LA C 

5243 

4C 29 51 

436 

JMP VDUL 


• 

OORD. 

DU PERSOWIAGE 



bAa 

LE IC 4r 

5/0 | 

371 POINT 

INC NCPA9T 





JuU j 



534D 

AD IC 4F 

572 

LOA NCPAST 


• 

519F 
51 AO 

IB 

AD 05 AF 

361 

362 

CLC 

LDA TOUR 


5350 

CD IB 4F 

573 

CMP NPAS1 



51 A3 

69 01 

363 

ADC §01 


3333 

00 05 

574 

BNE >1 



51A5 

BD 05 AF 

36A 

STA TOUR 


5355 

A9 02 

575 

LOA *02 


• 

51A6 

A2 00 

365 

LD» *00 


5357 

80 El BF 

576 

STA «BFE1 



51 AA 

Al 00 

366 

LDA (00,11 


535A 

A2 11 

577 >1 

LD» «17 



51 AC 

C9 20 

367 

CMP *32 


535C 

20 63 53 

578 >1 

JSR AFFICH 


• 

5IAE 

FO 4E 

368 

BEQ >3 


535F 

CA 

579 

DE» 



5160 

C9 65 

369 

CMP '*• 


5360 

DO FA 

580 

BNE <1 


A 

5162 

00 06 

370 

BNE 40 


5362 

60 

581 

RTS 


W 

5164 

20 4A 53 

371 

JSR POINT 


5363 

EE 50 BC 

582 AFFICH 

INC *BC5D 



51B7 

18 

372 

CLC 


5366 

AD 50 BC 

583 

LOA «BC50 


• 

5168 

90 44 

373 

BCC >3 


5369 

C9 3A 

584 

CMP ’î' 



5I6A 

C9 61 

374 >0 

CMP V 


536B 

FO 01 

585 

BEQ >1 



5I8C 

FO 20 

375 

BEQ EOJP 


5360 

60 

586 

RTS 


• 

516F 

AD 04 4F 

376 

LDA C/H 


536E 

EE 5C BC 

587 >1 

INC «BC5C 



51 Cl 

00 15 

377 

B* >0 


5371 

A9 30 

538 

LDA *48 


A 

51C3 

Al 00 

378 

LDA (00,1) 


5373 

80 50 BC 

589 

STA *BC5D 


w 

5IC5 

C9 62 

379 

CMP V 


5376 

AO 5C BC 

590 

LDA *BC5C 



51C7 

FO 04 

380 

BEQ >7 


5379 

C9 3A 

591 

CMP 


• 

51C9 

C9 63 

381 

CMP 


537B 

FO 01 

592 

BEQ >1 



51C8 

00 06 

382 

BNE >0 


5370 

60 

593 

RTS 


A 

51 CD 

A9 02 

383 >7 

LOA 102 


537E 

EE 5B BC 

594 >1 

INC *BC5R 


• 

51CF 

80 00 4F 

384 

STA CTRL 


5381 

A9 30 

595 

LOA *48 



5102 

BD OA 4F 

385 

STA PAIR 


5383 

80 5C BC 

596 

STA *BC5C 


A 

5105 

4C 46 52 

386 

JMP LIFT 


5386 

AD 5B BC 

597 

LOA «BC5B 


• 

5108 

A9 OJ. 

387 >0 

LDA *0J. 


5389 

C9 3A 

598 

CMP ’! 1 



510A 

80 El 6F 

388 

STA *BFE! 


5J8B 

FO 01 

599 

BEQ >1 


• 

5100 

60 

389 

RTS 

; MORT !!!' 

5380 

60 

600 

RTS 



1 t 1 1 





538E 

EE 5A BC 

601 >1 

INC *BC5A 



51 DE 

AD 04 4F 

390 EOJP 

* LDA C/H 


5391 

A9 30 

602 

LDA *48 


• 

51E1 

FO 48 

391 

BEQ >5 


5393 

80 5B BC 

603 

STA *BC5B 



51E3 

A9 00 

392 

LOA 100 


5396 

AO 5A BC 

604 

LDA «BC5A 


A 

51E5 

80 02 4F 

393 

STA C/D» 


5399 

FO 01 

605 

BEQ >1 


w 

5 IEB 

80 01 4F 

394 

STA C/6» 


539B 

60 

606 

RTS 



51E8 

BD 04 4F 

395 

STA C/H 


539C 

EE 59 BC 

607 >1 

INC *BC59 


# 

51EE 

A9 28 

396 

LOA *40 


539F 

A9 30 

608 

LDA *48 



51F0 

BD 03 4F 

397 

STA C/B 


53A1 

80 5A BC 

609 

STA *BC5A 



51F3 

A5 02 

398 

LOA *02 


53A4 

60 

610 

RTS 



35 


A SUIVRE. 

















Denis BONOMO Eddy DUTERTRE 


Rédacteur en chef 
de THEORIC 


Auteur de nombreux 
ouvrages 


Comment utiliser au mieux l'ordinateur quand 
on est passionné de communications radio. 


BON DE COMMANDE 


Je désire recevoir . . . "Communiquez avec votre ORIC-1 et votre 

ATMOS" contre . F en chèque, CCP, mandat * à l'ordre des 

Éditions SORACOM, 10 avenue du Général de Gaulle, 35170 BRUZ. 
□ Cassette □ livre 10 % de port 

Nom . Prénom . 


Adresse . 

Code Postal . Ville 

’Royer les mentions inutiles. 


te/ /ervice/ 
de théori 


DISQUETTES 



Les programmes publiés dans 
THEORIC sont disponibles sur 
disque (JASMIN seulement, pour 
le moment). Chaque disquette 
contient les programmes de deux 
numéros de THEORIC. Les dis¬ 
quettes portent un numéro . 

Les disquettes sont livrées, 
franco de port, contre un chèque 
de 135 F pour les abonnés, et 
165 F pour les non-abonnés. 
Les programmes figurant sur ces 
disquettes sont tels que publiés 
dans la revue. Ils n'ont subi 
aucune modification. 


TELEPHONE 

Une ligne téléphonique est à 
votre disposition, vous mettant 
en contact direct avec la rédac¬ 
tion. Ceci est un service sans 
égal ! Respectez simplement les 
horaires et les jours que nous 
vous indiquons : 

MERCREDI de 9 h à 12 h et de 
14 h à 17 h. 

VENDREDI de 9 h à 12 h seule¬ 
ment. 

Tout appel en dehors de ces cré¬ 
neaux sera refoulé : ne dépensez 
pas inutilement votre argent ! 
Le numéro : 99.52.98.11. 
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Frédéric TARAUD 


LE MINITEL 

PERIPHERIQUE 

INTELUGENT 


Beaucoup de possibilités nous sont maintenant offer¬ 
tes, et nous verrons la prochaine fois un programme 
d'application permettant le dialogue par le clavier 
entre deux Minitels. 

Mais, avant cela, essayons d'en savoir un peu plus 
au sujet du Minitel. 

LE MINITEL, C'EST QUOI ? 

Le Minitel n'est pas simplement un écran et un cla¬ 
vier. C'est aussi un microprocesseur qui gère des 
entrées/sorties, la scrutation du clavier, le codage 
des touches, l'affichage à la norme vidéotext, etc. 
C'est également un modem permettant de faire tran¬ 


siter des informations sur la ligne téléphonique avec 
un certain protocole. 

Sans oublier le soft qui, lui, va faire tourner tout cela. 
Il est implanté en ROM. On trouve également dans 
cette ROM 3 octets d'identification permettant au 
système auquel vous serez connecté de connaître 
le constructeur de votre Minitel, son type (M1, M10, 
etc.) et la version du logiciel. 

Ce logiciel s'appelle PROTOCOLE et travaille avec 
ce que l'on nomme le LANGAGE PROTOCOLE pos¬ 
sédant sa syntaxe propre. C'est par programmation 
à l'aide de ce langage qu'il est possible d'émuler le 
Minitel, et donc d'avoir accès à ses différents modu¬ 
les. 


LES DISQUETTES DE THEORIC 

Tous les progrommes de THEORIC, groupés par deux numéros sur une disquette. Plus de perte de temps 
pour les taper...-Existe pour le moment en JASMIN seulement, mais bientôt, la version DISCORIC sera 
disponible. 

Le prix : 135 F pour les abonnés (joindre impérativement l'étiquette), 165 F pour les autres. 
Avertissement : les programmes stockés sur ces disquettes sont tels que parus dans THEORIC. A vous de les 
adapter à vos besoins et au fonctionnement sur disque lorsque nécessaire. 



U 

TEST .BAS 

S 

2 SECTORS 

U 

SUPDESAT.BAS 

S 

45 SECTORS 

N° 1 THEORIC n° 4 et 5 

U 

UTIL3 .UN 

S 

5 SECTORS 

U 

CITYRAID.BAS 

S 

14 SECTORS 

N° 2 THEORIC n° 6 et 7 

U 

UTIL3 .BAS 

S 

16 SECTORS 

U 

SCROLLAT.PAS 

S 

8 SECTORS 

N° 3 THEORIC n° 8 et 9 

U 

DISCOJAS.BAS 

S 

11 SECTORS 

U 

SCR0LL01.BAS 

S 

S SECTORS 

N° 4 THEORIC n° 10 et 12 

U 

EPARLOGE. BAS 

S 

20 SECTOPS 

U 

VERBORIC.BAS 

S 

98 SECTORS 

N° 5 THEORIC n° 13 et 14 

U 

PAINT .BAS 

S 

9 SECTORS 

U 

C0UL4VC .BAS 

S 

5 SECTORS 

N u 6 THEORIC n a 15 et 16 

U 

UINDOBAS.BAS 

S 

14 SECTORS 

U 

C0UL4VA .BAS 

s 

8 SECTOPS 

N° HS THEORIC HORS SERIE 

U 

WINDODAT.BAS 

S 

7 SECTORS 

U 

C0UL6VA .BAS 

S 

10 SECTORS 

(n II) 

U 

UINDODEM.BAS 

S 

5 SECTORS 

U 

COULBVA .BAS 

S 

10 SECTORS 


U 

UINDOU .BIN 

S 

3 SECTORS 

U 

EDITCAR .BAS 

S 

12 SECTORS 

VOLUME : TOI3414 

U 

MOTCACHE.BAS 

S 

15 SECTORS 

U 

PHOTO1 .SCR 

S 

33 SECTORS 


U 

TO .BAS 

S 

4 SECTORS 

U 

LOADPHOT.BAS 

s 

2 SECTORS 

FTD0S3-2.SYS S 62 SECTORS 

U 

PROGVARS.BAS 

S 

6 SECTORS 





1 TANDEM13.1AS S 9c SECTORS 

U 

SUPDES01.BAS 

S 

45 SECTORS 

i: 

22 SECTORS FREE 



<0 

y— 

o 

C 


R 


BON DE COMMANDE 
DES DISQUETTES THEORIC 


Je commande les disquettes 1 2 3 4 5 HS 6 
Ci-joint : 135 F par disquette et mon étiquette abonné 
165 F par disquette car je ne suis pas abonné 


Soit ou total la somme de F réglée par chè¬ 

que ci-joint. 


NOM .Prénom 

Adresse. 

Code Postal .... Ville . 
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Modem 


Le langage Protocole est en fait une suite de codes 
qui pourront être fournis soit par la prise DIN 5 bro¬ 
ches (appelée prise PERI-INFORMATIQUE) et un 
ordinateur, soit par la prise téléphonique et un 
système central. 

LES MODULES 

On entend par là les 4 éléments de base du Minitel : 

— l'écran, 

— le clavier, 

— le modem, 

— la prise péri-informatique. 

Nous symboliserons ceci par la figure 1. 



Figura 3 : Mode connecté 

Las informations reçues par le modem parviennent é la prise et i l'écran. 
De même, les données envoyées sur la prise ou tapées au davier sont 
transmises au modem. 


CONFIGURATION DE LA CARTE SERIE 

Un certain nombre de petits programmes d'exem¬ 
ples vous seront proposés par la suite. Ils devront 
tous avoir en commun les lignes de Basic suivantes : 


10 • 

20 * CONFIGURATION DE LO CARTE SERIE 
30 * 

35 AC IA=#3E0 ’Ou autre valeur en fonction du décodage d’adresse utilise 
40 POKE ACIA+1.«00’RESET PROG. 

50 POKE ACIA+-2. #EB’ PARITE PAIRE/DTR VALIDE/I RC! INTERDITE/RTS=0 
60 POKE ACIA+3. tt3S’ 1200 BD/7 BITS/1 BIT DE STOP/HORLOGE INTERNE 
70 ’ 



Une des premières choses que nous permet le lan¬ 
gage Protocole, est de pouvoir connecter ou décon¬ 
necter les modules les uns aux autres. 

Il faut cependant savoir que certaines connexions 
sont déjà réalisées à la mise sous tension. On parle 
d'aiguillages standard qui se présentent de la façon 



Ces quelques lignes, placées en début de pro¬ 
gramme, vous permettront de configurer la carte 
série, de telle sorte qu'elle travaillera dans les 
conditions suivantes : 

— vitesse de transmission de 1200 bauds, 

— un bit de stop, 

— parité paire en émission et en réception, 

— 7 bits. 

Ceci étant fait, nous allons pouvoir essayer une pre¬ 
mière expérience : 

Modifier les aiguillages standard de telle sorte que 
les touches frappées ne soient plus affichées à 
l'écran. Pour ce faire, deux possibilités : soit sup¬ 
primer la liaison clavier/modem, soit la liaison 
modem/écran (voir figure 2). Prenons, par exemple, 
la deuxième possibilité. Rajoutons d'abord ces deux 
lignes au programme précédent : 

eo INPUT At:A=VAL("#"+A10 
90 POKE ACIAt AîGOTO S0 

Nous pouvons maintenant envoyer un par un des 
codes hexadécimaux vers le Minitel. Lancez le pro¬ 
gramme, puis répondez 1B (RETURN) 3B (RETURN) 
60 (RETURN) 58 (RETURN) 52 (RETURN). Votre cla¬ 
vier Minitel est maintenant devenu "muet”. 
Tapez maintenant IB, 3B, 61, 58, 52 et tout est 
rentré dans l'ordre. 

Eh bien, nous venons de faire connaissance avec 
deux instructions du langage protocole : la première 
s'écrit en mnémonique : 

PR03 OFF, code du récepteur, code de l'émetteur 
et la seconde : 


Figure 2 : Mode local 

Tout caractère frappé au davier va vers la prise et vers le modem. Celui- 
si ce reboucle sur lui-même et renvoie l’information sur l'écran. 

D'autre part, lors de la connexion du Minitel, sur un 
serveur par exemple, une autre configuration stan¬ 
dard se met en place : 


PR03 ON, code du récepteur, code de l'émetteur 

Il faut en effet savoir que chaque module possède 
un code différent en fonction qu'il est considéré en 
tant que récepteur ou en tant qu'émetteur (voir 
tableau 1 ). L'ordre PR03 ON est constitué par trois 
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1 


2 3 4 5 6 7 8 


codes hexa : 1 B, 3B, 60, et l'ordre PR03 OFF par : 
IB, 3B, 61. 


MODULES 

EMISSION 

RECEPTION 

Ecran 

#50 

#58 

Clavier 

#51 

#59 

Modem 

#52 

#5A 

Prise 

#53 

#5B 


Tableau 1 


Après cette prise en main, nous allons voir chaque 
module un peu plus en détail. 


L'écran 

L'écran comporte 25 lignes en 40 colonnes. De la 
même façon que sur l'ORIC, la première ligne n'est 
pas accessible directement. C'est sur celle-ci que se 
trouve le F ou le C en vidéo inverse indiquant si le 
Minitel est en mode local ou connecté. 

Chaque caractère s'inscrit dans une matrice de 8 sur 
10 (figure 4). 



1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


Figura 4 : Structure d'un caractère 

Le Minitel possède trois polices de caractères : 

— GO contient les caractères ASCII habituels ; 

— G1 est constituée de 64 caractères semi- 
graphiques (voir figure 6) ressemblant aux caractè¬ 
res LORES 1 de l'ORIC ; 

— G2 comporte des symboles spéciaux tels que des 
symboles mathématiques, monétaires ou de ponc¬ 
tuation. 


Figure 5 : Caractères semi- 
graphiques. La matrice est 
divisée en 6 cases. 

Nous ne nous attarderons pas sur les modes G2 et 
G1 qui seront éventuellement dévoloppés dans le 
cadre d'une application ultérieure, comme par exem¬ 
ple un éditeur de pages vidéotext. 

D'autre part, et d'ailleurs comme tout l'ORIC, le Mini¬ 
tel reconnaît les codes ASCII de 0 à # 1 F. Le tableau 
2 nous montre leur signification. Reprenez le pro¬ 
gramme précédent et envoyez le code 07 ; vous 
entendrez un bip retentir, mais il ne viendra pas de 
l'ORIC mais de votre Minitel. Tapez 11, et un cur¬ 
seur clignotant apparaîtra, 14 et il disparaîtra. Si 
vous envoyez maintenant un code supérieur à # 20, 
son caractère ASCII correspondant s'affichera. 
Exemple : tapez 41 et vous verrez un "A" sur 
l'écran. 


Coda 

Désignation 

Fonction 

Code 

Désignation 

Fonction 

00 

NUL 

Aucune action 

10 



01 

SOM 

aucune action 

11 

C.ON 

visualisation du curseur 

02 

STX 

aucune action 

12 

REP 

répétition du dernier caractère 

03 

ETX 

aucune action 

13 

SEP 

utilisé pour le codage des 
commandes 

04 

EOT 

aucune action 

14 

C.OFF 

disparition curseur 

05 

ENQ 

aucune action 

15 



06 



16 

SSE2 

Accès è G2 

07 

BELL 

signal sonore 

17 



08 

BS 

déplacement è 
gauche 

18 

CAN 

envoi des espaces |usqu'en 
bout de ligne 

09 

HT 

déplacement A 
droite 

19 

SYN 

idem A SS2 

OA 

LF 

déplacement en bas 

IA 

SUB 

Signal d’erreur : 

08 

VT 

déplacement en 
haut 

18 

ESC 

Escape accès aux attributs 

OC 

FF 

effacement écran 

IC 

SYN 

•dem à SS2 

OD 

RC 

retour curseur 
colonne 1 

10 



OE 

SQ 

accès A G1 

1E 

RS 

HOME 

OF 

SI 

accès A GO 

1F 

US 

positionnement du curseur 


Tableau 2 : Codes de commande. 
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Pour continuer l'analogie avec l'ORIC, le Minitel pos¬ 
sède également des attributs : couleur de fond, cou¬ 
leur de l'encre, double hauteur, double largeur, dou¬ 
ble grandeur, etc. On trouvera ces attributs’tableau 
3. Il faudra, pour avoir accès à ces attributs, taper, 
avant de les envoyer, le code ESC (escape), c'est- 
à-dire IB. 



4 

5 

0 

Caractères noirs 

Fond noir 

1 

Caractères rouges 

Fond rouge 

2 

Caractères verts 

Fond vert 

4 

Caractères jaunes 

Fond jaune 

5 

Caractères magenta 

Fond magenta 

6 

Caractères cyan 

Fond cyan 

7 

Caractères blancs 

Fond blanc 

8 

Clignotement 

Masquage 

9 

Fixe 

Fin de lignage 

A 


Début de lignage 

B 



C 

Grandeur normale 

Fond normal 

D 

Double hauteur 

fond inversé 

E 

Double largeur 


F 

Double grandeur 

Démasquage 


Tableau 3 : Les attributs. 

Ils devront être précédés de ESC 11 B). 


Faites l'essai suivant : taper IB (RETURN) 52 
(RETURN) 20 (RETURN) puis écrivez sur l'écran avec 
le clavier du Minitel : le fond est devenu rouge (I). 
En fait, l'écran étant noir et blanc, nous ne pourrons 
observer que des nuances de gris... 

Remarquons tout de même deux choses : d'abord 
le fond rouge s'est arrêté en bout de ligne. D'autre 
part, il a fallu taper 20 (espace) pour valider l'attri¬ 
but. Cela fait partie des petites choses à savoir ... 
Terminons sur l'écran en précisant qu'il est possi¬ 
ble de placer plusieurs attributs dans un même 
endroit de l'écran et que le fait d'en placer un ne 
déplace pas le curseur (contrairement à l'ORIC). 
Exemple : envoyez la séquence suivante : 

IB 52 IB 40 20 puis écrivez sur l'écran 

s-* ^ ^ ~~ 

fond rouge encre noire — espace 

REMARQUE : Le curseur ne clignote plus s'il se 
trouve sur un attribut. Le fait de réécrire sur un attri¬ 
but l'annule. 


Le clavier 

Il y a peu à en retenir, si ce n'est de connaître les 
codes associés aux touches spécifiques du Minitel. 
Celles-ci provoquent l'émission d'une séquence 
commençant par SEP (#13) suivi de #4X avec X 
compris entre 1 et 9. On peut associer ces touches 
à la "touche spéciale" (tableau 4). 

Le programme suivant, malgré sa lenteur, vous per¬ 
mettra de visualiser ces codes. Retapez les lignes 
de 90 à 1 20 puis enfoncez une des touches Répé¬ 
tition, Annulation, etc. 

eo fl=PECK<ficin> 

90 IF 0=19 THEN C=PEEK<fiCIA> : GOTO 110 
100 GOTO eo 

110 ir C)G4 THEN PRINT"#12i-" 5HEX$tC) 

120 GOTO C0 


Action sur 
la touche 

Codes envoyés 

Codes envoyés avec 
enfoncement simultané 
de la touche spéciale 

Envoi 

13.41 

OD Retour chariot 

Retour 

13,42 

19,42 Accent aigu* 

Répétition 

13,43 

13.4A 

Guide 

13.44 

19.48 Tréma 

Annulation 

13.45 

5C Barre de fraction 
inversée 

Sommaire 

13.46 

19,43 Accent circonflexe 

Correction 

13.47 


Suite 

13.48 

19,41 Accent grave 

Loupe 

Action locale 


Touche spéciale 

Doit être utilisée simultanément avec une 
autre touche 

Connexion/fin 

13,49 vers le 
modem 

13,49 vers la prise 


Tableau 4 : Codes émis par les touches de fonction. 


•Tapez touche spéciale + RETOUR puis touche spéciale + E ; affi¬ 
che é. 


Le modem 

Le modem regroupe en fait le système de commutation 
de la ligne téléphonique, de protection contre les surten¬ 
sions, de régulation du courant de ligne et d'adaptation 
d'impédance. 

La fonction modem par elle-même permet la modulation 
et la démodulation conformément à la norme V23. Les 
échanges s'effectuent à 1200 bauds dans le sens base 
de données vers Minitel et à 75 bauds dans l'autre sens. 
Ces vitesses peuvent être inversées par retournement du 
modem sur les Minitels appartenant à la série "r”. 
Rappelons que les liaisons transitant par la prise télépho¬ 
nique ou par la prise péri-informatique s'effectuent sur 
7 bits, 1 bit de stop, parité paire. 

L'étude complète de ce modem serait trop longue pour 
figurer ici, mais nous allons en tirer les points essentiels. 

RETOURNEMENT DU MODEM 

Emission à 1200 bds/réception à 75 bds. 

Séquence : IB, 39, 6C. 

Emission à 75 bds/Réception à 1200 bds. 

Séquence : IB, 39, 6D. 
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LE LANGAGE PROTOCOLE 


RETOURNEMENT POUR 
L'OPPOSABILITE DE DEUX MINITELS 

Cette possibilité est particulièrement intéressante car elle 
nous servira dans notre prochaine application. Elle per¬ 
met de mettre en relation directe deux Minitels. 

La séquence se décompose de la façon suivante : 

IB, 39, 6F retournement 

IB, 39, 68 connexion et envoi de la porteuse vers l'au¬ 
tre Minitel (réception de la tonalité aiguë). 

Dès que le Miniteliste appelé perçoit la tonalité aiguë, l'ap¬ 
pui de la touche CONNEXION enverra chez ''l'appelant" 
la séquence 13, 53 et coupera la liaison téléphonique. 
Un autre appui sur cette touche rebasculera la commu¬ 
nication sur les téléphones. 



1 — Réception des données par le Minitel (RX) 

2 — Messe 

3 — Emission des données par le Minitel (TXI 

4 — Périphérique en transmission IPTI 

5 — Terminal prêt !TPI 


Nous avons déjà eu un aperçu de ses possibilités tout à 
l'heure pour la connexion ou la déconnexion des modu¬ 
les. Son rôle, bien entendu, ne se limite pas qu'à cela. 
Nous ne détaillerons pas chaque instruction, mais vous 
les retrouverez toutes dans le tableau 5. 

D'une façon générale, tous les ordres concernant le pro¬ 
tocole ou tous les messages engendrés par celui-ci auront 
le format suivant : 

• ESC,39,X = PR01.X 

• ESC,3A,X,Y = PR02,X,Y 

• ESC,3B,X,Y,Z = PR03,X,Y,Z 

X, Y, Z étant les octets de demande ou de réponse 
envoyés avec la séquence. 

Des séquences du type SEP,X (13,X) peuvent également 
être émises par le système (voir tableau 6). 

LES STATUS 

Un status est un octet dont chacun des bits a une signi¬ 
fication particulière. La lecture d'un status permettra donc 
d'avoir l'état du Minitel sur un point. Le Minitel possé¬ 
dant plusieurs status, il nous sera possible en les lisant 
tous, de connaître sa configuration exacte. 

STA TUS D'UN MODULE 


Description des broches 

• Signaux TX et RX : se passent de commentaire. 

• PT : ce signal indique l'occupation du réseau de péri¬ 
phériques raccordés sur le Minitel au cas où plusieurs péri¬ 
phériques seraient connectés. 

Dans notre cas (carte série), il est forcé à 0. 

• TP : ce signal est à 0 quand Minitel est sous tension. 
Il est prévu que cette broche puisse servir à alimenter des 
périphériques à faible consommation. 


Vitesse des échanges par la prise 

La vitesse est modifiable par l'utilisateur à l'aide du cla¬ 
vier par l'appui de : touche spéciale + CORRECTION 
puis : 

2,2 pour 1200 bds 
4,4 pour 300 bds 

On peut aussi intervenir sur la vitesse par envoi de la 
séquence IB, 3A, 6B, octet de programme. 


Octet de programmation 


b8 

b7 

66 

65 

64 

b3 

b2 

bl 


O i —->— - 

Vitesse Vitesse 

émission réception 

Minitel Minitel 


Les trois bits de programmation peuvent prendre les 
valeurs suivantes : 

001 =75 bds 
010 = 300 bds 
100 = 1200 bds 


Permet de connaître le contexte d'aiguillage, l'état du 
module en tant que récepteur et l'état du module en tant 
qu'émetteur. La demande se fera par : PR02 TO, code 
récepteur OU code émetteur. La réponse sera : PR03 
FROM, code récepteur OU code émetteur, octet de sta¬ 
tus aiguillage. 


Format octet de status aiguillage 


• Parité | 

1 

0 

°1 

Prise 

Modem 

Clavier 

Ecran 

b7 

b6 

b5 

b4 

b3 

b2 

bl 

bO 


bO à b3 : 1 : liaison établie 
0 : liaison coupée 


Exemple : Rajouter les lignes de Basic suivantes. 
L'utilisation du langage machine est maintenant 
indispensable pour avoir une vitesse suffisante. 

70 G03UB 1000 
BO FOR 1^0 TO 3 

90 INPUTA*: A=VAL<"#"+A<.> sPOKE(A6a^, fiiNEXT 
100 CALLtt400:3=PEEK<#450) 

110 PRINT"STATUS s";HEX*<S) 

120 END 
390 • 

1000 FOR I =#400 TO #417:READ A$:n=VALi:"#" 
+A$>:P0KE I.A :NEXT s RETURN 
1010 DATA A2. 00, AD, 21,03,29,03,F0,F9 
1020 DATA AD,20,03,BD,50,04,ES,E0,05 
1030 DATA F0,03,4C.02.04,E0 


Programme 

machine : 




1400-417 
0400: A2 

00 

LDX 

Ht-00 


0402: AD 

21 03 

LDA 

$0321) 

Test registe de 

0405: 29 

0C 

AND 

#*>03 ) 

réception plein 
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0407*. 

FO 

F9 


DEO 

40402 


0403: 

AD 

20 

03 

LDA 

403201 


Q40C : 

SD 

50 

04 

STA 

40450 

Ut 5 valeurs et 

040F : 

EC 



INX 



0410: 

E0 

05 


CPX 

«405 

les place en # 450 

0412: 

FO 

03 


DEC! 

40417 


0414: 

4C 

02 

04 

JNP 

40402 


0417: 

CO 



RTS 




Status de vitesse prise 

Demande : PR01, STATUS VITESSE (IB, 39, 74) 
Réponse : PR02, STATUS VITESSE, Status (IB, 3A, 
75, X) 


b7 

ô6 

bS 

b4 

b3 

b2 

bl 

bO 


Lancez le programme, puis tapez : IB (Return) 3A 
(Return) 62 (Return) 58 (Return), ce qui vous don¬ 
nera le status de l'écran en tant que récepteur. Si 
vous êtes en aiguillage standard, la réponse sera 
#4D. 

En binaire 


0 

1 

0 

0 

1 

1 

0 

1 



reçoit de la prise reçoit du Modem ne reçoit pas i voir figure 

du clavier ] 

Les quelques lignes suivantes afficheront directe¬ 
ment le status en binaire : 

110 [!$="" 

120 TOR 1-7 TO 0 GTEP -1 
120 Q=INT<2t<I)> 

140 ir S> =0 THEN S=S-Q: B4-B4+" 1 “ : GOTO 1E0 
150 B4=B4+"0 M 
ICO NEXT 

170 PRINT"STOTUS :"5D4 
ICO END 

Opérez ces deux modifications pour obtenir les sta¬ 
tus suivants : 


bits 

Vitesse de réception 

b2 bl bO 

0 0 1 

0 1 0 

1 0 0 

75 bd s 

300 bd s 

1200 bds 


bits 

Vitesse d'émission 

b5 64 63 

0 0 1 

0 1 0 

1 0 0 

75 bds 

300 bds 

1200 bds 


Status du protocole 

Demande : PR01 STATUS PROTOCOLE (IB, 39, 
2 76) 

Réponse : PR02 STATUS PROTOCOLE, Status (IB, 
3A, 77, X) 



On entend par ACQUITTEMENT les réponses 
qu'envoie le protocole pour signifier qu'il a exécuté 
une commande. 


80 FOR 1 = 0 to 2 

1020 AD, 20, 03, 8D, 50, 04, E8, EO, 04 Commande de configuration du Minitel 


Status terminal 


Demande : PR01 STATUS TERMINAL (IB,39,70) 
Réponse : PR02 STATUS TERMINAL, Status (IB, 
3A, 71, X). 


67 

es 

65 

64 

63 

62 

bl 

60 

-1-1- 


Parité 


,J 


L 


non utilisé : 0 


1 e présanca 

du modula logiciel - * 

1 = périphérique présent - 


1 « 1200/75 vitesse de transmission 

- 1 « modula téléphonique présent 

- 1 • porteuse détectée 


Status mode de fonctionnement 

Demande : PR01 STATUS FONCTIONNEMENT (IB, 
39 72) 

Réponse : PR02 STATUS FONCTIONNEMENT, Sta¬ 
tus (IB, 3A, 73, X) 


67 

66 

65 

64 

63 

62 

bl 

bO 


Parité 


0 

0 

pas de loupe 

0 

1 

loupe haute 

1 

0 

loupe basse 

1 

1 

impossible 


0 = 40 colonnes 
-7 =80 colonnes 


— 1 = mode rouleau actif tscrotUng) 
1 ■ procédure de correction d'erreur active 
1 - mode enseignement actif 


Mise en route : START, mode de fonctionnement 
(IB, 3A, 69, X) 

Arrêt : STOP, mode de fonctionnement (IB, 3A, 6A, 
X). 


Mode de fonctionnement 

Code 

Visu en 80 colonnes 

#42 

Mode rouleau (scrolling) 

#43 

Procédure de correction d'erreur 

#44 

Mode enseignement 

#45 

Loupe haut 

#46 

Loupe bas 

#47 


Rajoutez ceci, puis envoyez IB, 3A, 69, 46 pour 
passer en loupe haut, puis IB, 3A, 6A, 46 pour 
annuler. 

70 

80 FOR 1 = 0 TO 3 

90 INPUT A$:A = VAL("#''+A$):POKE#320,A: 
NEXT 
100 END 
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MNEMONIQUE 

CODE 

SYNTAXE 

ACTION 

1 OFF 

60 

IB 3B 60. code récepteur, code émetteur 

Arrêt d’aiguillage 

2 ON 

61 

IB 3B 61. code récepteur, code émetteur 

Aiguillage 

3 TO 

62 

IB 3A 62. code récepteur ou code émetteur 

Demande de status d’un module 

4 FROM 

63 

IB 3B 63, code récepteur ou code émetteur, status 

Réponse à une demande de status ou acquittement 

5 NON DIFFUSION 

64 

IB 3A 64, code récepteur 

Diffusion restreinte des acquittements protocole 

6 DIFFUSION 

65 

IB 3A 65, code récepteur 

Diffusion systématique des acquittements protocole 

7 TRANSPARENCE 

66 

IB 3A 66, nombre d’octets 

Mise en transparence du protocole 

8 DECONNEXION 

67 

IB 39 67 

Déconnexion physique du Modem 

9 CONNEXION 

68 

IB 39 68 

Assure la connexion du Modem 

10 START 

69 

IB 3A 69. mode de fonctionnement 

Mise en route d’un fonctionnement particulier 

11 STOP 

6A 

IB 3A 6A, mode de fonctionnnement 

Arrêt du mode de fonctionnement 

12 PROG 

6B 

IB 3A 6B, octet de programmation vitesse 

Programmation des vitesses par le périphérique 

13 RET1 

6C 

IB 39 6C 

Retournement du Modem 

14 RET2 

6D 

IB 39 6D 

Retournement inverse du Modem 

15 ACRET 

6E 

IB 39 6E 

Acquittement de retournement 

16 OPPO 

6F 

IB 39 6F 

Retournement pour l’opposabilité 

1 7 OPPORE 

6F.31 

IB 39 6F 31 

Passage du mode opposé à l’esclave 

18 STATUS TERMINAL 

70 

IB 39 70 

Demande status terminal 

19 REP STATUS TERMINAL 

71 

IB 3A 71. octet de status terminal 

Réponse 

20 STATUS FONCTIONNEMENT 

72 

IB 39 72 

Demande status fonctionnement 

21 REP STATUS FONCTIONNEMENT 

73 

IB 3A 73. octet de statusfonctionnement 

Réponse 

22 STATUS VITESSE 

74 

IB 39 74 

Demande status vitesse 

23 REP STATUS VITESSE 

75 

IB 3A 75, octet de status vitesse 

Réponse 

24 STATUS PROTOCOLE 

76 

IB 39 76 

Demande status protocole 

25 REP STATUS PROTOCOLE 

77 

IB 3A 77, octet de status protocole 

Réponse 

26 IDEN 1 

78 

IB 39 78 

En-tête de téléchargement Bloc 1 

27 IDEN 2 

79 

IB 39 79 

En-tête de téléchargement Bloc 2 

28 ENQ RAM 

7A 

IB 39 7A 

Identification du Bloc 2 

29 ENQ ROM 

78 

IB 39 7B 

Identification du terminai 


Tableau S : commandas du protocole 


70 

E0 FOR 1=0 TO 3 

90 INPUTG*: :POKE#320. fi: NEXT 

100 END 

Beaucoup de portes ouvertes... 

Beaucoup de choses n’auront pas été abordées dans 
cet article, comme par exemple la procédure de cor¬ 
rection d’erreur, ou la description des différentes 
polices de caractères. 


Cependant, la lecture de ces quelques pages vous 
aura peut-être donné envie d’en savoir plus sur ce 
sujet. Sachez alors que vous pouvez vous procurer 
le STUMM1 (Spécifications Techniques d’Utilisation 
du Minitel Ml) pour la somme de 100,00 F à 
l’adresse suivante : 

CNET PARIS A 

Service Documentation Technique 
38-40, Rue du Général Leclerc 
92131 ISSY LES MOULINEAUX 


Séquence 

ACTION 

13 41 

Touche ENVOI 

13 42 

Touche RETOUR 

13 43 

Touche REPETITION 

13 44 

Touche GUIDE 

13 45 

Touche ANNULATION 

13 46 

Touche SOMMAIRE 

13 47 

Touche CORRECTION 

13 48 

Touche SUITE 

13 49 

Touche CONNEXION/FIN 

13 4A 

Demande de mise en marche de la procédure de correction d’erreur 

13 4B 

Demande d’arrêt de cette procédure 

13 4C 

Demande de retournement du MODEM (1200-75 bauds) 

13 4D 

Demande de retournement inverse (75-1200 bauds) 

13 50 

Changement d’état de la connexion 

13 51 

Changement de la vitesse du Modem 

13 52 

Connexion ou déconnexion d’un module téléphonique 

13 53 

Connexion ou déconnexion du Modem 

13 54 

Changement d’état du fil PT 

13 55 

Connexion ou déconnexion de modules logiciels supplémentaires 

13 56 

Changement d’état du status mode de fonctionnement 

13 57 

Acquittement de la mise en transparence 

13 58 

Début et fin de retournement 

13 59 

Phase de connexion-déconnexion 


Tableau 6 : codage des séquences émises par le Minitel : touches de fonction, commandes de procédure 
de transmission, changement d'état du Minitel. 
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A SUIVRE 










DEUX RECOPIES 
D'ÉCRAN 


GP 100 


Marc-Noël FAUVEL 
Daniel BRUTESCO 


C f est fini ! Après, vous n'au¬ 
rez plus droit à ce genre de 
programme... Nous avons fait le 
tour des possibilités de la GP 100. 
Pourquoi deux programmes ? 
Simplement parce qu'ils sont 
complémentaires au niveau de la 
conception. A vous de vous en 
inspirer pour en extraire l'essen¬ 
tiel et concevoir la routine appro¬ 
priée è vos besoins. 

Les deux programmes permet¬ 
tent la recopie double largeur. 
Celui de Daniel BRUTESCO est 
compatible ORIC 1-ATMOS. 
Celui de Marc-Noël FAUVEL est 
écrit pour ATMOS : il permet en 
plus l’impression en blanc sur 
noir. Vous pourrez le modifier 
ORIC-1 grâce à nos explications. 

LE PROGRAMME 
DE DANIEL BRUTESCO 

Il occupe 800 octets. Il n'utilise 
pas de routine ROM, d'où la 
compatibilité totale ORIC 1- 
ATMOS. Il est situé entre 94F0 
et 97FB. Quelques informations 
pour bien comprendre les com¬ 
mentaires. 

TRAIT est chargé par l'octet se 
trouvant à l'adresse X. 

Pour chaque BOUCLE, on consi¬ 
dère que IMP est envoyé à l'im¬ 
primante, un blanc est envoyé, 
OCT est décrémenté de 40, X est 
décrémenté. 

Au sortir de la boucle, l'ordre 
d'imprimer est donné si INCR est 
inscrite. MEM incrémenté, OCT 
réinitialisé par MEM et X rechargé 
avec valeur 200. 
INITIALISATION #94F4-#951A 


passe en mode graphique, initia¬ 
lise les registres mémoires. 

V® BOUCLE #951 B-#9547 
TRAIT — OCT charge les ports 1, 
3, 5, 7 de IMP par les points 1, 

2, 3, 4 de TRAIT. 

2" BOUCLE #9548-# 956F 
TRAIT — OCT charge les points 2 
et 4 de IMP par les points 5 et 6 
de TRAIT. TRAIT-OCT + 1 
charge le point 6 de IMP par le 
point 1 de TRAIT. INCR. 

3» BOUCLE # 9570- # 959B 
TRAIT —OCT charge les points 1, 

3, 5, 7 de IMP par les points 2, 
3, 4, 5 de TRAIT. 

4 e BOUCLE # 959C- # 95C3 
TRAIT—OCT charge le point 2 de 
IMP par le point 6 de TRAIT. 
TRAIT —OCT+1 charge les 
points 4 et 6 de IMP par les 
points 1 et 2 de TRAIT. INCR. 
5® BOUCLE # 95C4- # 95EE 
TRAIT—OCT charge les points 1 ; 

3, 5, 7 de IMP par les points 3, 

4, 5, 6 de TRAIT. INCR. 

6® BOUCLE # 95EE- #9613 
TRAIT—OCT charge les points 2, 
4, 6 de IMP par les points 1, 2, 

3 de TRAIT. 

7® BOUCLE #9614 # 9643 
TRAIT —OCT charge les points 1, 

3, 5 de IMP par les points 4, 5, 
6 de TRAIT. TRAIT-OCT+1 
charge le point 7 de IMP par le 
point 1 de TRAIT. INCR. 

8® BOUCLE #9644-#9668 
TRAIT —OCT charge les points 2, 

4, 6 de IMP par les points 2, 3, 

4 de TRAIT. 

TEST DERNIERE COLONNE 
#9669-#9670 

Décrémente le registre mémoire 
CONT (initialisé à 06) si ce regis¬ 


tre = 0, saut à la boucle de fin 
(#9 ). 

9® BOUCLE # 9671 -# 96A0 
TRAIT—OCT charge les points 1 
et 3 de IMP par les points 5 et 6 
de TRAIT. TRAIT-OCT+1 
charge les points 5 et 7 de IMP 
par les points 1 et 2 de TRAIT. 
INCR. 

10® BOUCLE # 96A1 - # 96C4 
TRAIT—OCT charge les points 2, 

4, 6 de IMP par les points 3, 4, 

5 de TRAIT. 

11® BOUCLE # 96C5- # 96F4 
TRAIT —OCT charge le point 1 de 
IMP par le point 6 de TRAIT. 
TRAIT—OCT charge les points 3, 

5, 7 de IMP par les points 1, 2, 
3 de TRAIT. INCR. 

12® BOUCLE # 96F5- # 971A 
TRAIT —OCT charge les points 2, 
4, 6 de IMP par les points 4, 5, 

6 de TRAIT. INCR. Saut à la bou¬ 
cle n° 1 ( # 93F4). 

BOUCLE DE FIN # 971 B- # 973D 
TRAIT — OCT charge les points 1 
et 3 de IMP par les points 5 et 6 
de TRAIT. Met l'imprimante en 
mode graphique normal et retour. 
LDR # 973E- # 9761 
Envoie à l'imprimante l'octet 
chargé dans le registre A. 

IMC # 9762- # 9787 
Augmente IMP de 1 28, l'envoie 
à l'imprimante, envoie un blanc 
à l'imprimante, met IMP à 0, 
soustrait 40 Dec à OCT et décré¬ 
mente de registre X. 

ADD #9788-#9796 
Additionne IMP par le registre Y. 
POINT P # 9797- # 97B5 
Incrémente MEM et le charge 
dans OCT, imprime la ligne, 
charge Dec dans le registre X. 
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CHAR P # 97CA- # 97E1 
Chargement de l'octet graphique 
dans TRAIT correspondant à 
l’adresse OCTET + 1. 

DE # 97F5à 97FB 
Registres mémoires. 

LE PROGRAMME 
DE MARC-NOËL FAUVEL 

Il est beaucoup plus court, 
puisqu'il fait appel à des routines 
de la ROM. Par souci de compa¬ 
tibilité, voici les adresses équiva¬ 
lentes ORIC-1. 

ATMOS ORIC-1 

C809 C832 

Entrée de LPRINT. Force bit 7 de 
2F1 à 1. 

F1C8 E9CD 

Routine POINT X, Y 


F5C1 F57B 

Envoie le contenu de l'accu à 

l'imprimante. 

Les différentes options du pro¬ 
gramme s'obtiennent par des 
POKE en #65 et #66. 

Penser à procéder à l'initialisation 
de 2E1-2E3 avant les CALL 
#626D appelant la routine. 

LES COMMENTAIRES 
626D - 6274 

Sélection mode graphique. 
6275 - 6287 

Initialisation X et Y à zéro et tam¬ 
pon à zéro. 

6288 ~6292 

Appel du sous-programme tes¬ 
tant le "point”. Evaluation du 
résultat : - 1 ou 0. 

6293 - 630D 


Chargement/accumulation dans 
le tampon. 

630E 

Envoi du tampon à l'imprimante. 
631B -6325 

Si mode double largeur, envoie 
une deuxième fois le tampon à 
l'imprimante. 

6330-633A 

Recommence tant que X<240. 
6340 

Fait imprimer le résultat d'une 
ligne. 

6343-6350 
Si Y<199, recommence. 

6351 -6359 

Remet imprimante en mode texte 
et fin de routine. 

635A-636F 

Sous-programme d'appel de la 
routine POINT X,Y 


1 0 REM ***xxxzxxzt*xxxx*r*x*****x*x 

20 REM COPIE D‘ECPRH HRUTE 

30 REM RESOLUTION POUR 

40 REM GP 100 SEIKOSHR•EN 

=.0 REM LRMGRGF MRCHIHF. 

REM 

70 REM <C'i Msrr-Nne I FRÛVFI 
80 REM ET THFOPIC 1 9!?4 

40 REM ♦: 4 ♦ 1XXXX ♦ T XX X T T T X T T T T T T *: 4 4 T 
100 REM 

110 RESTÔRE : Z=#626D 
120 FOR M=1 TO 259 
130 PERD R* *C=VRL<”#"+R$ > 

140 POKE Z.C<Z=Z+1 
150 NEXT M 
160 END 

170 DRTR R9.08■20■C1.F5•20.09.C8■R9 
180 DR T R 96, 85 ,70. R9, 00,85,71 . R9.00 
190 DRTR 85.55.R9.00.85.69.R5•71.85 
200 DRTR 67,20,5R,63,RD,El,02,05,65 
210 DRTR D0.02-E6.69-E6.67.20.5fl.63 
220 DRTR RD,E1•02,05,65,D0,07,R5,69 
230 DRTR 18.69.02,85•69.E6,67•20•5H 
240 DRTR 63.RD•E1■02.05.65.D0.07.R5 
250 DRTR 69,18,69,04,85,69,F 6,67,20 
260 DRTR 5R•63.RD.E1■02.05.65.D0.07 
370 DRTR R5,69,18.69,08,85,69.06.67 
280 DRTR 20,5R,69,RD,El,02,05,65,D0 
290 DRTR 07,R5.69.18.69,10.85-69.E6 
300 DRTR 67.20.5R.63•RD•E1,02.05.65 
310 DRTR D0•07,R5,69.18,69,20,85,69 
320 DRTR E6,67.20•5fl.63.RD,E1■08.05 
330 DRTR 65.D0.07.R5,69,13,69,40,35 
340 DRTR 69,R5,69,13,69,80,35,69.20 
350 DRTR Cl•F5.ER■ER■ER•ER■ER•ER•ER 
360 DRTR ER.ER.ER.H5- 66,09,01.D0.0F 
370 DRTR R5,69,20,01,F5,FR.FR,FR.FR 
380 DRTR ER.ER.ER.ER.ER.ER.E6.55.R5 
; :90 DR FR 55,09, F0.F0,03,40.81 .62. FR 
400 DRTR ER,ER,ER,ER,20,09,08,R5.71 
410 DRTR 18.69.07.35.71.09.07.B0.03 
420 DRTR 40,7D,62,R9,0F.20,01,F5,20 
430 DRTR 09,OS,60■R9.00.8D.E2•0?.8D 
440 DRTR F4,02,R5.55.8D.F1.02.H5.67 
450 DRTR 3D,ES,08,20,03,Fl.60 


455 ' 

460 ■' OPTIONS IJTTLISRBIES = 

470 ' VOUS RVEZ LR POSSIBILITE DE 
430 ' COPIER L'ECRAN EN DOUBLE 
490 ' LARGEUR.RINSI QUE DF L OBTENIR 
500 ■’ EN BIRNO SUR NOIR COMME EN NOIR 
510 • , SUR BLANC. VOICI I ES MANOEUVRES ‘ 
580 ' 

530 ' DOUBLE I RRGEUR P0KE#66,l 
540 ' SIMPLE I RRGEUR : POKE466.0 
550 ' 

560 HOIR SUR BLANC: • P0KF#65.255 
570 •' BLANC SUR NOIR • POKF#65.0 
580 ■• 

590 •• INITIAL r SA T IONS : 

600 ' 

610 ' D0KE#2E1.0 DOL E#8F3.0 
680 

630 •• RF'PEI DU PROGRAMME MRCHINF 
640 ' 

650 ' i RI I #686D 
660 •• 
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0 I LS INK2 FRPFR0 

1 PRINT@8 .1î"RECOPIE D'ECRAN DOUBLE FORMAT" 
? PRINTT-10. 10 ; "pON IQIJP" 

S PRINTS3, 12; "VEUIl LE? PATIENTER CHARGEMENT 
10 HIMEM#94F0 
?0 I =#94F4 

30 PF0D0* ÎFRt="8T"THFNGOTO490 
40 fl-v'AL 1 "#" +A$ ) : F'OKFL , P : L=l +1 :GOTO30 
60 STOP 

60 D0T009.06 . SD • FB . 97 . 09,08 ■ 20.3E. 97 ■ 09 . OA. 
70 DATAA9, BF, 8D, FF., 97,8D, F8,97, D« , A9,00.3D. 
:-:0 DRT005 . 00.0 ] 20.88.9? . 2A. 90 • 05. A0.04.20. 
90 DATA90,05,AO,40,80.88,97,?0,62,97,D0,D6, 
100 DATA80,88.97,FA.90,05,A0,02,20,88, 97,20 
110 DAT097,20.62.9 ? .D0,DB,20,97,97,20,F2,97 
120 DA TA05,A0,10,80.88,9?,6A,90,05.80,04,80 
130 DATA62,97,D0,D7.80.P6,97,20,F2,97,6A,90 
140 DH TA8A,90,05,A0.08,20,83.97,2A.90,05,80 
150 DATA97.80•F 2,97.6A.90,05•80,40,20,83.97 
160 DA T880, 04,20,83,97, i-.A, 90,05,80,01,20,88 
170 DHTR97.88 ■ : 'A . 28 *90.05.80.02, 20.88.97,2R 
180 DATA20.20.38.97.20.68.97.D0.DE.20.B6.97 
190 DAT868•90.05.80.04.20.88.97•68.90.05•80 
800 DAT 805.80.40.20•88,97■20•68.97.D0■D3.20 
810 DAT820,80,88.97.68,90.05.80.08.80■88.97 
220 DAT8D0.DE,20,B6.97.f F,FB.97,P0,03,4C,1B 
230 DAT897 • 68 , 90 . 05 , 80,01. -'0.9g. 97 , ?0 , r R, 97 
240 T 'AT890.05.80.40.20.88.97,20.62•97.00•D3 
250 I )RT820•20•88.97.68.90.05.80.08.20.38.97 
860 DAT8D0•DF.20•B6.97.20,E8.97.68.90.05.80 
870. DAT 805.80.04.20.88•97.28■90.05.00.10.20 
•'80 DA T 06.9.97. DM, D -! ■ 20.97.97,20, F8,97,60, 90 
•90 DA T820,88,9 7,6H. 90,05, 80,02,20,88,97,20 
300 DA T8F2,97,68,90,05,80,04,80,88.97,68,90 
310 DAT889,00,20,3F .97.09.0F . 80, 2E . 97,60, 78 
320 D8T001,03,0D.00.03,29,FF,80,00,03,09,10 
330 DAT060.80.F 9.97.18.69.80,20.3E■97,09.80 
340 D8T033•E9.28.3D.F7■97.8D.F 8•97.E9.00.8D 
350 DAT097.SD.F9.97.0D.FA.97,60.18-0D.F5.97 
260 D0T069■00.SD.F6.97.8D.F8 97.09.00.20•3F 
370 DRT 0F6•97,8D.F8.97•09•08,20•3F.97.08.C8 
280 DAT8F8.97.6.9.00. RD . DD. 97.0D .FF.FF . 8D. F0 
•!90 DATR8D, F0,97, AD, FF . FF . 80. F0.97.60, S T 


LANGAGE MACHINE" 


20•3E.97■89.18.8D,F5. 
F9,97,02,C8,20,F2,97, 
88.97.20.90.05.00 10, 
20,B6,97,20,F2,97,60, 
,fR,97,8R,80,80,90.05 
,60.60,90.05.H0,40.20 
,83,97,6R.90,05,AO, 01 
,05,80,02,20,88,97,20 
,80,80,83,97.20,62.97 
.60,90,05,00,10,80,83 
,97,30,62,97,D0,DS,80 
.90.05.H0.08.80.88.97 

■ 20•E2•9?.68.90.05,00 
.01.20.88.97.20,CR•97 

■ 97 > 97•20•E2* 97•60,60 
,60.90,05,00,08,20,88 
,97,20,E2,97,60.90,05 
.20.28•28,90,05.R0.10 
.20.97•97.20.F2•97.68 

• 60■90•05■00•02•20■88 
.01.20,88.97•20,CR,97 
.88•97.2A•90.05.00.40 
.05,00,2«,20,88,97,60 
,62,97,D0,E0,20,97,97 
,05.00,01,20,88,9 7 .80 
,48,0D,0C,03,09,01,9D 
,8D,00,03,00,0D,03,29 
.20.2E■97,09,00,8D,F9 
.F8.97.CR.60.SD.FR.97 
.69.01.8D•F5.97.SD•F7 

• 97•82•C8•60.RD.F5.97 

■ 60■RD.FT.97,18■69.01 

• 97•60,8D,F7,97•8D,EF 


97.SD.F7,97 
28.28,28,90 
20.88.97.2A 
90,05,80,08 
,80.20.20•88 
,83,97,68,90 
,20,88,97,20 
,CR,97,28,28 
,D0,DB,20,97 
,97,6A,90.05 
,97,97,20,F2 
. H.90■ 05 •A0 

• 10.20.88.97 
.28.2A■28•90 
.68•90•05.R0 
, 97 , 20 , 62 , 97 

• 00,04,20•88 
,20.88.97.20 
.60.90.05.00 

• 97.20.62.97 
•20.20.20.90 
.20■88.97•20 
,90,05,00,08 
,4C, 1B,95,20 

• 62•97,D0■F8 
,0C,03,68,30 
,02,F0•F9,58 
,97.0D,F7.97 
.93.18.6D.F9 
.97.0D•F6•97 

• 8D•F7•97•AD 

• 8D•OC,97,AD 

• 97■AD•F8•97 
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José LEGRAND 



C ertains ne jurent que par les capacités didacticielles de 
la gamme THOMSON... ORIC est capable d'en faire 
autant I Nous avons ouvert cette rubrique, réservée 
aux logiciels éducatifs, avec le programme de CONJUGAISON. 
Nous n'allions pas nous arrêter en si bon chemin I Voici une 
réalisation qui enchantera les plus jeunes... ou leurs éduca¬ 
teurs. 


POULE est un jeu à caractère 
^ éducatif, agrémenté d'une ani- 
frj mation musicale et graphique, 
3 pour enfants à partir de 3 ans. 
< Il s'agit de tests de reconnais- 
JS sance visuelle, très importants 
c pour l'apprentissage de la lecture, 
jj Vos petits ne se lasseront pas de 
Ë faire picorer la poule (avec la 
•5 barre d'espacement) au-dessus 
j? du dessin analogue au modèle. 
J 36 tableaux, très colorés, sont 


proposés à leur sagacité. 

A chaque bonne réponse, la 
poule pond un œuf dans un 
endroit différent selon les paroles 
d'une comptine bien connue. 
Les adaptations pour ORIC-1 
sont notées dans les REM. 

Le programme occupe environ 15 
k-octets. 

Noter la présence en écriture dou¬ 
ble largeur, double hauteur : 

— la routine de calculs se trouve 


aux lignes 2940-3010 ; 

— la routine d'affichage aux 
lignes 2000-2110 (en suppri¬ 
mant les lignes 2070 et 2090, on 
obtient uniquement un affichage 
double largeur). 

Analyse de la conception d'un 
tableau : 

— donnée correspondant à la 
variable REP qui est la bonne 
position pour l'arrêt de la poule 
(ex.: ligne 3020) ; 

— données pour le dessin de 
référence (ex.: ligne 3030). Ces 
données sont transformées en 
attributs de couleur de fond en 
ligne 1190 ; 

— données pour les 4 proposi¬ 
tions (ex.: lignes 3040 à 3070). 
Vous pouvez charger votre 
numéroteur automatique pour 
taper le programme. 
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110 REM 
120 REM 
130 REM 

140 REM - 

150 REM ! POULE POULE POULE POULE ! 

160 REM î ! 

170 REM ' 0R1C ATMOS ! 

180 REM ! ! 

190 REM ! Adaptation 0R1C 1 ! 

200 REM - 

210 P0KE618,10:REM PAS DE CURSEUR CLAVIER 
MUET 

220 DIMN(25),T(25),N1(25),N2(30),T1(25),T 
2(30),02(30),A(80),L*<21) 

230 REM PRESENTATION 
240 CLS:PAPERO:INKO 
250 G0SUB1960 

260 PLOT12,25,6:PLOT13,25,17îPLOT1*,25,’2 
0 SECONDES SVP...*:PL0T33,25,16 
270 CALL#E76A:REM BLOQUE LECTURE CLAVIER: 
REM CALLIE6CA SUR ORIC 1 


520 PRINTCHR<(131)*O l’aide de la barre 
d’espace), au' 

530 PRINTCHR$(131)'dessus du dessin corre 
spondant 3 ton* 

540 PRINTCHRK 1311'chotx.' 

550 REM DECOR 

560 FORI=1T021 : READL»(I):F0RJ=OTO7:READL: 
P0KE46080+8+ASC(L»(I))+J,L:NEXT:NEXT 
570 PRINT:PRINTCHRK133)* Si ton choix es 
t le bon, la poule ’ 

580 PRINTCHR*(133)* ira, comme dans la cha 
nson, pondre* 

590 PRINTCHRK133)*un oeuf dans :* 

600 PRINT:PRINT:PRINTCHRSi129)* 1’*glise: 

*CHRK134)’ la mare:* 

610 PRINT:PRINT:PRINTCHR$(131)*la lune: 

*CHR»(132)* 1 ’ armoire:* 

620 PRINT:PRINT:PRINTCHRK!133)* la grange: 

a 

630 PL0T13,22,3 

640 PL0T14,21,*A *:PL0T14,22, , BC* 

650 PL0T13,25,5:PL0T14,24,*HI*:PL0T14,25, 
*JK* 

660 PL0T34,19,6:PL0T35,18,*DE':PL0T35,19, 
*FG* 

670 PLOT34,22,4:PLOT35,21,*LM*:PLOT35,22, 

*NP* 

680 PLOT13,19,1 :PL0T14,18,*UV*:PL0T14,19, 


280 PR$=*VERS*:M=10:N=1 :G0SUB2000 
290 PR$=’LA':M=14:N=5:G0SUB2000 
300 PR$=*LECTURE*:M=4:N=9:G0SUB2000 
310 INK2 
320 PL0T2,25,* 

a 

330 PL0T16,12,3:PL0T17,12,17:PL0T18,12,*T 
ESTS*:PL0T24,12,16 

340 PL0T17,14,3:PL0T1B,14,17:PL0T19,14,*D 
E*:PL0T22,14,16 

350 PL0T7,16,3:PL0T8,16,17:PL0T9,16, ’RECO 
NNA1SSANCE VISUELLE*:PL0T33,16,16 
360 PLOT 1,25,3:PLOT1,26,3 
370 PL0T2,26, * 

a 

380 CALLIE93D:REM REAUTORISE LA LECTURE D 
U CLAVIER:REM CALLIE804 SUR ORIC 1 
390 F0RI=OT010:READA* 

400 FORJ=0T07:READA:POKE47104+8»ASC(A$)+J 
,A:NEXT:NEXT:REM POULE 
410 60SUB2120 
420 GETR» 

430 CALL#F8D0:REM REMET LES CARACTE ES DA 
NS ETAT INITIAL:REM IF89B SUR ORIC 1 
440 CLS:PAPERO:INK6:P0KE48036,0:REM CAPS 
450 F0RI=0T03:R£ADA* 

460 FORJ=0T07:READA:P0KE4608O+S*ASC(A*)+J 
,A:NEXT:NEXT:REM ACCENTS 
470 PRINT:PRINTCHRK4)SPC(10)CHRK27)*JR* 
gle du jeu*CHRt(4) 

480 PRINT:PRINT:PRINTCHRK129)* Tu vas de 
voir choisir, parmi quatre* 

490 PRINTCHRK129)*propositions, le dessi 
n analogue* 

500 PRINTCHRK 129)*au modKe plac# au cen 
tre de l’Icran.* 

510 PRINT'.PRINTCHRK 131 ) 1 Tu rlpondras en 
arrêtant la poule,* 


•NX* 

690 G0SUB2280 
700 GETR» 

710 CLS:P0KE48036,0 

720 PRINT:PRINT:PRINT:PRINT:PRINTCHRK129 
)* le jeu comporte 36 tableaux.* 

730 PRINT:PR1NTCHRK134)*36 est donc le n 
ombre d’oeufs que tu* 

740 PRINTCHR$(134)* dois faire pondre 3 la 
poule.* 

750 PRINT:PRINT:PRINTCHRS(131)SPC(12)"bon 
ne chance...* 

760 6ETR» 

770 REM INITIALISATION ECRAN 
780 LORESO 
790 60SUB1960 

800 Q»=*Questions :*:F0RI=1T011:P0KE4B025 
♦I,ASC(MID»(Q*,I,1)):NEXT 
810 0t=*0eufs : * :F0RI=1T07: P0KE48004+1, AS 
C(HIDK0*,I,1)):NEXT r/^\ 

820 REM INITIALISE ECRAN VERT 
830 PL0T19.3,16: PLOT 19,4,16 \ 

840 PL0T20,3,9:PL0T20,4,9 A ) 

850 PL0T34,3,8:PL0T34,4,8 V J 
860 REM POULE 

870 FORI=OT07:READA»:FORJ=0T07:READA:POKE 
47104+8tASC(A*)+J,A:NEXT:NEXT 
880 REM APPEL CARACT.6RAPH.DANS CADRE BLE 
U 

890 F0RI=16T01B:PL0T2,I,16:PL0T3,1,9:NEXT 
900 REM 22:CADRE BLEU 21:CADRE VIOLET 
18:CADRE VERT 

910 F0RI=9T026:PL0T1,I,22:NEXT 

920 F0RI=9T026:PL0T38,I,22:NEXT 

930 F0RI=2T037:PL0TI,26,22:NEXT 

940 F0RI=1T018:PL0TI,0,21:NEXT 

950 F0RI=1T018:PLOTI,8,21:NEXT 

960 F0RI=1T07:PL0T1,1,21:PL0T18,1,21:NEXT 


970 F0RI=19T038:PLOTI,0,18:NEXT 
980 F0RI=19T038:PLOTI,B,1B:NEXT 
990 REM POULE ET OEUFS JAMES 
1000 F0RI=1T07:PL0T0,I,3:NEXT 
1010 REM CHOIX ALEATOIRE DU DECOR ET DE S 
A COLLEUR 

1020 HA=INT(RND(1)*5)♦1 
1030 C0=-3*(HA=1)-6*(HA=2)-5*(HA=3)-4*(HA 
=4)-(HA=5) 

1040 F0RI=3T04 
1050 PL0T35,1,C0 
1060 NEXT 

1070 PL0T36,3, Ll ( 4*HA-3) : PL0T37,3, LK 4+HA 
- 2 ) 

1080 PL0T36,4,L*(4+HA-1):PL0T37,4,L»(4*HA 

) 

1090 REM CHOIX COULEUR POULE 

1100 C0=INT(RND(1>*7)+1 

1110 PLOTO,16,CO:PLOTO,17,CO:PLOTO,18,2 

1120 REM CHARGEMENT DES COULEURS 

1130 REM 

1140 READ REP:REM PLACE BONNE REPONSE 
1150 IFREP=0 THEN1750:REM TEST FIN DU JEU 

1160 F0RI=1T080:READA(I):NEXT 
1170 REM AFFICHAGE DU MODELE 
1180 F0RJ=0T03 

1190 F0RI=lT04:PL0T2O+I,10+J,16+A<I+J+4) : 
NEXT 

1200 NEXT 

1210 REM AFFICHAGE DES PROPOSITIONS 
1220 F0RK=OT024STEP8 
1230 F0RJ=1T04 

1240 FORI=1T04:L=(K+B)«2+1+4tJ-4:PL0T8+I+ 
K,19+J,16+A(L):NEXT 
1250 NEXT 
1260 NEXT 

1270 REM AFFICHAGE DES GRAINES 
1280 FORI=9T033STEP8: PLOT1,18,* 1111 * :NEXT 
1290 REM AFFICHAGE DU NOMBRE DE QUESTIONS 
1300 QU=QU+1 

1310 QU»=NID»(STRKQU),2) 

1320 FORI=1TOLEN(QU») 

1330 P0KE48036+I,ASC(MID$(OU»,I,1)) 

1340 NEXT 

1350 REM DEPLACEMENT POULE ET SAISIE REPO 
NSE 

1360 At=KEY»:TU=0 
1370 REPEAT 
1380 1=3 
1390 1=1+1 

1400 PLOTI,16,* efij*:PLOTI,17,* ghk * 
1410 HAIT10 

1420 IFPEEK(»208)=132THENTU=1:60T01450 

1430 IFK32THEN1390 

1440 PL0T33.16,* *:PL0T33,17,* * 

1450 UNTILTU=1 ( ) 

1460 REM REPONSE FAUSSE 

1470 IFKREP OR I>REP+4 THENPLOTI+1,16,* 

• :PLOTI,17,* ’:60T01290 

1480 REM BONNE REPONSE 
1490 PLOTREP+4,18,* *:REM EFFACE 6RAIN 

ES 

1500 REM POLLE EN HAUT A DROITE 
1510 J=1 

1520 F0RL=21T029 
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1530 PL0TL.3,* efij*:PL0TL,A,■ qhk 1 
1540 F0RK=0T02 

1550 PLAY1,0,0,0:MUSIC1,02(J+K),N2(J+K),5 
:HAITT2(J+K)*6:PLAY0,0,0,0 
1560 NEXT 
1570 J=J+3 
1580 NEXT 

1590 FORK=29T030:PLAY1,0,0,OrMUSICl,02(K) 
,N2(K),5 :WAITT2(K)*6:PLAYO,0,0,0:NEXT 
1600 PLAYO,0,0,0 

1610 IF FIN=1THEN RETURN:REM FIN DU JEU 
1620 PL0T30.3,‘ *!PL0T30,4,' 

1630 PLOTI+1,16,' *iPL0TI,17,’ 

1640 REM AFFICHAGE DE L’OEUF PONDU 
1650 0=0+1 
1660 P=P+1 

1670 1F(0-1)/12*INT((0-1)/12)THENQ-Q+HP« 
1680 PL0TP+3,Q+2,*Y’ 

1690 REM AFFICHAGE DU NOMBRE D’OEUFS 
1700 0*=M1D*(STR*(0),2> 

1710 F0RI=1T0LEN(0*) 

1720 POKE4BOll+I,ASC(MID*(0t,1,1)) 

1730 NEXT 
1740 G0T01010 
1750 REM FIN DU JEU 

1760 CALLtFBDO:REM CALLIF89B SUR ORIC 1 
1770 CLS:GOSUB1960 

1780 PRINTtPRIMT:PRINT:PRINT:PRINT* La po 

ule a pondu les 36 oeufs en'QU* questions. 

■ 

1790 IFQO-36M THENER*=* erreurs.* ELSE ER 
*=*erreur.* 

1800 PRINTïPRINT" Tu as donc fait*QU-36;E 
Rt 

1810 PR1NT:PRINT:PRINTCHRS(131)* Veux-tu 
recommencer ? (0 - N)' 

1820 GETR* 

1830 IFR*=*0*THENCLS:REST0RE:QU=O:O=O:GOT 
0390 

1840 IFR*O*N'THEN1820 
1850 CLS:PING 

1860 PRINTSPCI151*PATIENCE SVP...* 

1870 CALL*E76A:REM CALLIE6CA SUR ORIC 1 
1880 PL0T1,15,0:PLOT1,16,0 
1890 PR*=*AU REVOIR*:M=1:N=15:60SUB2000 
1900 PLOT1,0,0:REM EFFACE PATIENCE.. 

1910 PL0T1,15 t 2:PLOT1,16,5:REM COULEURS A 
U REVOIR 

1920 PLOT1,3,0:PL0T1,A,0:REM POULE INVISI 
BLE 

1930 CALL»E93D:REM CALLIE804 SUR ORIC 1 
1940 FIN=1:GOSUB1510:FIN=0 
1950 WAIT200:CLS:CALL#F8D0:END: REM CALLIF 
89B SUR ORIC 1 

1960 REM EFFACE LIGNE DES STATUTS x 
1970 FORI=A8000T048039s POKE1,32 :NEXT 
1980 RETURN 

1990 REM AFFICHAGE TITRE DOUBLE LARGEUR,D 
OUBLE HAUTEUR 
2000 FORI=lTOL£N(PRt) 

2010 At=HID»(PR*,I,l) 

2020 P=P+1 

2030 CDt(l)=CHR*(88+P) 

2040 P=P+1 

2050 CDt(2)=CHRt(B8+P) 

2060 GOSUB2940 



2070 PL0T2,N,10:PL0T2,N+1,10 
2080 PL0TH+4+I,N,CD*(1)+CD$(2) 

2090 PLOTM+4»I, N+1, CD*11)+CD*(2) 

2100 NEXT 
2110 RETURN 

2120 REM POULE ET MUSIQUE 
2130 PL0T2,25,9:PL0T2,26,9 
2140 FORI=3T020: PLOT 1,25,* efij*iPL0TI,26 
,* ghk *:HAIT)5:NEXT 

2150 F0RI=lT02flsREADNl(I),Tl(I):PLAY6,0,0 

,0 

2160 PL0T23,25,*ij*iPL0T23,26,*kl* sMUSIC2 
, 3, NI ( I ), 5 îfiUSl C3,4, NI ( I ), 5 
2170 WAITT1(I)*20 
2180 PLAYO,0,0,0 

2190 PL0T23,25,*» •iPL0T23,26,*no* 

2200 NEXT 

2218 F0RI=1T07:READNtI),T(I):PL0T2O+I,25, 

* efij*:PL0T2O+I,26,* ghk * 

2220 PLAY6,0,0,0:MUSIC2,3,N(I),5:MUSIC3,4 
,N(I),5:UAITT(I)*21 
2230 PLAYO,0,0,0 
2240 NEXT 
•2250 PLAYO, 0,0,0 

2260 PL0T27,26,* *:PL0T27,25,* 

2270 RETURN 

2280 REM PETITE POULE GRISE 
2290 FORI=1T030:READN2(I),021I),T2(I):PLA 
Y3,0,0,0 

2300 MUSIC1,02(1),N2(I),5:MUSIC2,02(11+1, 
N2(I),5:UAITT2(!)tlO 
2310 PLAYO,0,0,0 
2320 NEXT 
2330 RETURN 
2340 REM POULE 

2350 DATAe,0,0,32,48,56,56,63,31 
2360 DATAT,0,0,0,0,0,0,63,63 
2370 DATAg,28,12,15,7,3,0,0,0 
2380 DATAh,3,7,63,63,63,63,36,54 
2390 DATAi,0,3,6,15,31,63,62,62 . 


r/^%, 

» ww » ww, „w f w* f w f W|wgw 

,0,0,4,0,0,2,0,16 
1,0,0,0,0,0,60,62,63 a 
,63,63,51,33,0,0,0,0 V J 
1,32,48,20,48,32,2,0,16^^^ 


2400 DATAj,0,32,48,56,8,0,0,0 
2410 DATAk,60,60,56,32,0,0,0,0 
2420 DATAI 

2430 DATA»,0,0,0,0,0,60,62,63 
2440 DATAn 

2450 DATAo,32,48,20,48,32 
2460 REM MUSIQUE UNE POULE SUR UN MUR 


2470 DATA10,1,10,1,6,1,6,1,10,1,10,1,6,2, 
10 , 1 , 10 , 1 , 6 , 1 , 6 , 1 , 10 , 1 , 10 , 1 , 6 , 2 , 10,1 
2480 DATA10,1,6,2,10,1,10,1,6,2,10,1,10,1 
, 6 , 1 , 6 , 1 , 10 , 1 , 10 , 1 , 6,2 
2490 REM ACCENTS 


2500 DATAS,8,4,28,2,30,34,30,0 
2510 DATAI,4,B,28,34,62,32,30,0 
2520 DATA*,16,8,28,34,62,32,30,0 
2530 DATAX, 28,34,28,34-, 62,32,30,0 
2540 REM LUNE 

2550 DATAA,0,2,6,12,24,56,56,56 
2560 DATA* 1 *,0,0,0,0,0,0,0,0 
2570 DATAS,60,62,31,31,15,0,0,0 
2580 DATAC.0,6,60,56,48,0,0,0 
2590 REM MARE 

2600 DATAD.O,1,3,7,7,7,7,15 
2610 DATAE,0,32,48,56,56,56,56,60 
2620 DATAF,31,63,63,63,31,15,7,3 
2630 DATAG,62,63,63,63,62,60,56,48 


2640 REM GRANGE 
2650 DATAH,0,0,1,3,7,13,31,63 
2660 DATAI,0,0,32,48,56,44,62,63 
2670 DATAJ,63,63,55,54,62,62,0,0 
2680 DATAK,63,63,59,27,31,31,0,0 
2690 REM ARMOIRE 

2700 DATAL,0,48,63,63,49,49,49,51 
2710 DATAM,0,3,63,63,35,35,35,51 
2720 DATAN,49,49,49,63,63,48,48,48 
2730 DATAP,35,35,35,63,63,3,3,3 
2740 REM EGLISE 

2750 DATAÜ,1,3,6,12,30,30,31,31 
2760 DATAV,0,32,48,24,60,60,60,60 
2770 DATAH,63,63,62,60,60,60,60,60 
2780 DATAX,62,62,62,30,30,30,30,30 
2790 REM OEUF 

2800 DATAY,0,4,14,31,31,31,31,14 
2810 REM MUSIQUE PTITE POULE 6R1SE 
2820 DATA10,3,2,10,3,2,5,4,2,5,4,2,3,4,2, 
5,4,4,1,4,2,12,3,1,1,4,1,3,4,2 
2830 DATA3,4,2,5,4,2,3,4,2,1,4,2,12,3,2,1 
0,3,4,10,3,2,12,3,2,1,4,2,12,3,2 
2840 DATA10,3,4,5,4,4,10,3,2,10,3,1,12,3, 
1,1,4,2,12,3,2,10,3,4,5,4,4,10,3,6 
2850 REM POULE 

2860 DATAe,0,0,32,48,56,56,63,31 
2870 DATAT,0,0,0,0,0,0,63,63 
2880 DATAg,28,12,15,7,3,0,0,0 
2890 DATAh,3,7,63,63,63,63,36,54 
2900 DATAi,0,3,6,15,31,63,62,62 
2910 DATAj,0,32,48,56,8,0,0,0 
2920 DATAk,60,60,56,32,0,0,0,0 
2930 DATAI,0,0,4,0,0,2,0,16 
2940 REM CALCULS POUR ECRITURE DOUBLE LAR 
GEUR 

2950 F0RK=OTO7:A=PEEK(46080+K+8+ASC(A*)) 
2960 CD(1)=46080+K+8*ASC(CD*(1)1 : CD(2)=46 
080+K+8+ASC(CD*(2)) 

2970 B=(32-A)*(A>3I)—A*(A<32):C*(16-B)»(B 
>15)-B*(B<16) 

2980 D= ( 8-C) * ( 09 )-C» < C<8) :E= ( 4-D ) * ( D>5 ) - 
D*(D<4>:F=(2-E)*(E>3)-E*(E<2) 

2990 Ll=-48*(A>31)-12*(B>15 >-3»(B>7):L2=- 
48*(D>3)-12*<E>1)-3*(F>0) 

3000 P0KECD(1),L1:P0KECD(2),L2:NEXT 
3010 RETURN 
3020 DATA21 

3030 DATA3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3 
3040 DATA4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 
3050 DATA5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5 
3060 DATA3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3 
3070 DATA2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2 
3080 DATA5 

3090 DATAI,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 
3100 DATAI,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 
3110 DATA3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3 
3120 DATA4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 
3130 DATA6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6 
3140 DATA29 

3150 DATAI,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2 
3160 DATAI,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 
3170 DATA2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2 
3180 DATAI,1,2,2,1,1,2,2,1,1,2,2,1,1,2,2 
3190 DATAI,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2 
3200 DATA13 

3210 DATA6,6,6,6,1,1,1,1,1,1,1,i,6,6,6,6 
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3220 DATA*,6,6,6,6,6,6,6,1,1,1,1,1,1,1,1 
3230 DATA6,6,6,6,1,1,1,1,1,1,1,1,6,6,6,6 
3240 DATAI,1,1,1,6,6,6,6,6,6,6,6,1,1,1,1 
3250 DATA6,1,1,6,6,1,1,6,6,1,1,6,6,1,1,6 
3260 DATA21 

3270 DATA3,3,3,3,3,4,4,3,3,4,4,3,3,3,3,3 
3280 DATA3,3,4,4,3,3,4,4,3,3,3,3,3,3,3,3 
3290 DATA4,4,4,4,4,3,3,4,4,3,3,4,4,4,4,4 
3300 DATA3,3,3,3,3,4,4,3,3,4,4,3,3,3,3,3 
3310 DATA3,3,3,3,4,4,3,3,4,4,3,3,3,3,3,3 
3320 DATA5 

3330 DATA2,5,5,2,5,5,5,5,5,5,5,5,2,5,5,2 
3340 DATA2,5,5,2,5,5,5,5,5,5,5,5,2,5,5,2 
3350 DATA5,2,2,5,2,2,2,2,2,2,2,2,5,2,2,5 
3360 DATA2,1,1,2,1,1,1,1,1,1,1,1,2,1,1,2 
3370 DATA2,5,5,2,5,5,5,5,5,5,5,5,2,5,5,5 
3380 DATA13 

3390 DATA2,4,4,2,2,2,2,2,2,2,2,2,2,4,4,2 
3400 DATA4,4,4,4,2,2,2,2,2,2,2,2,4,4,4,4 
3410 DATA2,4,4,2,2,2,2,2,2,2,2,2,2,4,4,2 
3420 DATA4,2,2,4,4,4,4,4,4,4,4,4,4,2,2,4 
3430 DATA2,4,2,2,2,2,2,2,2,2,2,2,2,4,2,2 
3440 DATA29 

3450 DATAI,1,1,1,7,1,1,7,7,1,1,7,7,1,1,7 
3460 DATA5,5,5,5,7,5,5,7,7,5,5,7,7,5,5,7 
3470 DATAI,7,7,7,1,1,1,1,1,1,1,1,1,7,7,7 
3480 DATA7,1,1,7,7,1,1,7,7,1,1,7,1,1,1,1 
3490 DATAI, 1,1,1,7,1,1,7,7,1,1,7,7,1,1,7 
3500 DATAS 

3510 DATA2,2,2,2,2,5,5,5,2,5,5,5,2,2,2,2 
3520 DATA2,2,2,2,2,5,5,5,2,5,5,5,2,2,2,2 
3530 DATA2,2,2,2,2,5,5,2,2,5,5,2,2,5,5,2 
3540 DATA2,2,2,2,5,5,5,2,5,5,5,2,2,2,2,2 
3550 DATA2,5,5,2,2,5,5,2,2,5,5,2,2,2,2,2 
3560 DATA21 

3570 DAT A4,6,6,6,6,4,6,6,6,6,4,6,6,6,6,4 
3580 DATA6,6,6,4,6,6,4,6,6,4,6,6,4,6,6,6 
3590 DATA6,4,4,4,4,6,4,4,4,4,6,4,4,4,4,6 
3600 DATA4,6,6,6,6,4,6,6,6,6,4,6,6,6,6,4 
3610 DATA6,4,6,6,6,6,4,6,6,6,6,4,6,6,6,6 
3620 DATA21 

3630 DATA3,1,1,3,1,3,3,1,1,3,3,1,3,1,1,3 
3640 DATA2,1,1,2,1,2,2,1,1,2,2,1,2,1,1,2 
3650 DATAI,3,3,1,3,1,1,3,3,1,1,3,1,3,3,1 
3660 DATA], 1,1,3,1,3,3,1,1,3,3,1,3,1,1,3 
3670 DATA],1,1,1,1,3,1,1,1,1,3,1,1,1,1,3 
3680 DATA5 

3690 DATA2,5,5,2,5,2,2,5,5,5,5,5,5,5,5,5 
3700 DATA2,5,5,2,5,2,2,5,5,5,5,5,5,5,5,5 
3710 DATAS,5,5,5,2,5,5,2,5,2,2,5,5,5,5,5 
3720 DATAS,5,5,5,5,5,5,5,2,5,5,2,5,2,2,5 
3730 DATAS,2,2,5,2,5,5,2,2,2,2,2,2,2,2,2 
3740 DATA29 

3750 DATA4,4,4,7,4,4,4,7,4,4,4,7,7,7,7,7 
3760 04747,4,4,4,7,4,4,4,7,4,4,4,7,7,7,7 
3770 DATA7,7,7,7,4,4,4,7,4,4,4,7,4,4,4,7 
3780 DATA6,6,6,7,6,6,6,7,6,6,6,7,7,7,7,7 
3790 DATA4,4,4,7,4,4,4,7,4,4,4,7,7,7,7,7 
3800 DAT A13 

3810 DATA2,4,2,2,4,2,2,2,4,2,2,2,2,4,2,2 
3820 DATA2,2,4,2,2,4,2,2,2,4,2,2,2,2,4,2 
3830 DATA2,4,2,2,4,2,2,2,4,2,2,2,2,4,2,2 
3840 DATA2,2,4,2,2,2,2,4,2,2,2,4,2,2,4,2 
3850 DAT A4,2,2,2,2,4,2,2,2,4,2,2,4,2,2,2 
3860 DATA 13 

3870 DATA2,5,2,5,2,5,2,5,2,5,2,5,2,5,2,5 


3880 DATA2,2,5,5,2,2,5,5,2,2,5,5,2,2,5,5 
3890 DATA2,5,2,5,2,5,2,5,2,5,2,5,2,5,2,5 
3900 0ATA2,2,2,2,5,5,5,5,2,2,2,2,5,5,5,5 
3910 DATA5,2,5,2,5,2,5,2,5,2,5,2,5,2,5,2 
3920 DATA29 

3930 DATA4,7,4,7,7,4,7,4,4,7,4,7,7,4,7,4 
3940 DATA7,4,7,4,4,7,4,7,7,4,7,4,4,7,4,7 
3950 DATA4,4,7,7,7,7,4,4,4,4,7,7,7,7,4,4 
3960 DATA3,6,3,6,6,3,6,3,3,6,3,6,6,3,6,3 
3970 DATA4,7,4,7,7,4,7,4,4,7,4,7,7,4,7,4 
3980 DATA21 

3990 DATA6,6,6,6,1,1,6,6,6,6,5,5,6,6,6,6 
4000 DATA6,6,6,6,5,5,6,6,6,6,1,1,6,6,6,6 
4010 DATA6,6,6,6,6,6,1,1,5,5,6,6,6,6,6,6 
4020 DATA6,6,6,6,1,1,6,6,6,6,5,5,6,6,6,6 
4030 DATA6,6,6,6,1,5,6,6,6,6,5,1,6,6,6,6 
4040 DATA5 

4050 DATA3,3,4,4,4,4,4,4,4,4,4,4,3,3,3,3 
4060 1)4763,3,4,4,4,4,4,4,4,4,4,4,3,3,3,3 
4070 DATA3,3,3,3,4,4,4,4,4,4,4,4,3,3,4,4 
4080 DATA4,4,3,3,4,4,4,4,4,4,4,4,3,3,3,3 
4090 DATA4,3,3,4,4,4,4,4,4,4,4,4,3,3,3,3 
4100 DATA13 

4110 DATA2,5,5,5,5,5,5,2,2,5,5,5,5,5,5,2 
4120 DATA3,5,5,5,5,5,5,3,3,5,5,5,5,5,5,3 
4130 DATA2,5,5,5,5,5,5,2,2,5,5,5,5,5,5,2 
4140 DATA5,5,5,2,2,5,5,5,5,5,5,2,2,5,5,5 
4150 DATA5,2,2,2,2,2,2,5,5,2,2,2,2,2,2,5 
4160 DATA29 

4170 DATAI,6,6,1,1,6,6,1,1,6,6,1,6,1,1,6 
4180 DATAI,6,6,1,1,6,6,1,1,6,6,1,1,1,1,1 
4190 DATA6,6,6,6,1,6,6,1,1,6,6,1,6,1,1,6 
4200 DATAI,6,6,1,1,6,6,1,6,1,1,6,6,6,6,6 
4210 DATAI,6,6,1,1,6,6,1,1,6,6,1,6,1,1,6 
4220 DATA13 

4230 DATA4,6,4,4,6,4,4,4,4,4,4,6,4,4,6,4 
4240 DATA4,4,6,4,4,6,4,4,4,4,4,6,4,4,6,4 
4250 DATA4,6,4,4,6,4,4,4,4,4,4,6,4,4,6,4 
4260 DATA4,4,6,4,4,4,4,6,6,4,4,4,4,6,4,4 
4270 DATA4,6,4,4,6,4,4,4,4,4,6,4,4,4,4,6 
4280 DATA5 

4290 DATAI,1,1,1,2,2,2,2,3,3,3,3,4,4,4,4 
4300 DATAI, 1,1,1,2,2,2,2,3,3,3,3,4,4,4,4 
4310 DATAI,1,1,1,2,2,2,2,4,4,4,4,3,3,3,3 
4320 DATA2,2,2,2,3,3,3,3,4,4,4,4,1,1,1,1 
4330 DATA3,3,3,3,4,4,4,4,2,2,2,2,1,1,1,1 
4340 DATA21 

4350 DATAI,1,2,2,3,3,4,4,4,4,3,3,1,1,2,2 
4360 DATAI,1,2,2,3,3,3,3,4,4,4,4,1,1,2,2 
4370 DATA2,2,1,1,3,3,4,4,4,4,3,3,2,2,1,1 
4380 DATAI,1,2,2,3,3,4,4,4,4,3,3,1,1,2,2 
4390 DATA2,2,1,1,4,4,3,3,4,4,3,3,2,2,1,1 
4400 DATA21 

4410 DATAI,2,2,1,2,2,1,1,1,1,2,2,1,2,2,1 
4420 DATAI,1,2,2,2,2,1,1,1,1,2,2,2,2,1,1 
4430 DATAI,2,2,1,1,1,2,2,2,2,1,1,1,2,2,1 
4440 DATAI,2,2,1,2,2,1,1,1,1,2,2,1,2,2,1 
4450 DATAI,1,2,2,1,2,2,1,2,2,1,1,1,1,2,2 
4460 DATA13 

4470 DATA3,3,3,5,3,3,5,6,3,5,6,6,5,6,6,6 
4480 DATA6,6,6,5,6,6,5,3,6,5,3,3,5,3,3,3 
4490 DATA3,3,3,5,3,3,5,6,3,5,6,6,5,6,6,6 
4500 DATA3,3,3,1,3,3,1,6,3,1,6,6,1,6,6,6 
4510 DATA5,3,3,3,6,5,3,3,6,6,5,3,6,6,6,5 
4520 DATA5 

4530 DATAI,2,3,1,1,3,2,1,1,6,6,1,1,1,1,1 


4540 DATAI,2,3,1,1,3,2,1,1,6,6,1,1,1,1,1 
4550 DATA5,2,3,5,5,3,2,5,5,6,6,5,5,5,5,5 
4560 DATAI,3,2,1,1,2,3,1,1,6,6,1,1,1,1,1 
4570 DATAI,2,3,1,1,3,2,1,1,7,7,1,1,1,1,1 
4500 DATA5 

4590 DATAI,2,3,4,2,3,4,5,3,4,5,6,4,5,6,7 
4600 DATAI,2,3,4,2,3,4,5,3,4,5,6,4,5,6,7 
4610 DATA2,3,4,5,3,4,5,6,4,5,6,7,5,6,7,1 
4620 DATAI,2,3,4,2,3,4,1,3,4,1,2,4,1,2,3 
4630 DATAI,2,3,4,2,3,4,5,3,4,5,1,4,5,6,2 
4640 DATA21 

4650 DATA2,3,6,6,2,3,6,6,6,6,3,2,6,6,3,2 
4660 DATA2,3,5,5,2,3,5,5,5,5,3,2,5,5,3,2 
4670 DATA3,2,6,6,3,2,6,6,6,6,2,3,6,6,2,3 
4680 DATA2,3,6,6,2,3,6,6,6,6,3,2,6,6,3,2 
4690 DATA6,6,3,2,6,6,3,2,2,3,6,6,2,3,6,6 
4700 DATA13 

4710 DATAI,0,0,1,0,2,3,0,0,3,2,0,1,0,0,1 
4720 DATA2,0,0,2,0,1,3,0,0,3,1,0,2,0,0,1 
4730 DATAI,0,0,1,0,2,3,0,0,3,2,0,1,0,0,1 
4740 DATAI,0,0,1,0,3,2,0,0,2,3,0,1,0,0,1 
4750 DATAI,0,0,1,0,2,5,0,0,5,2,0,1,0,0,1 
4760 DATA29 

4770 DATAO,1,6,0,3,5,5,4,4,5,5,3,0,6,1,0 
4780 DATAO,1,6,0,4,5,5,3,3,5,5,4,0,6,1,0 
4790 DATAO,1,6,0,3,6,6,4,4,6,6,3,0,6,1,0 
4800 DATAO,6,1,0,3,5,5,4,4,5,5,3,0,1,6,0 
4810 DATAO,1,6,0,3,5,5,4,4,5,5,3,0,6,1,0 
4820 DATA13 

4830 DATAI,3,3,1,3,0,0,4,3,0,0,4,6,4,4,6 
4840 DATAI,4,4,1,4,0,0,3,4,0,0,3,6,3,3,6 
4850 DATAI,3,3,1,3,0,0,4,3,0,0,4,6,4,4,6 
4860 DATAI,3,3,6,3,0,0,4,3,0,0,4,1,4,4,6 
4870 DATAI,3,3,1,4,0,0,3,4,0,0,3,6,4,4,6 
4880 DATA21 

4890 DATA2,2,5,5,4,2,2,5,4,2,2,5,4,4,2,2 
4900 DATA2,2,4,4,5,2,2,4,5,2,2,4,5,5,2,2 
4910 DATA4,4,2,2,4,2,2,5,4,2,2,5,2,2,5,5 
4920 DATA2,2,5,5,4,2,2,5,4,2,2,5,4,4,2,2 
4930 DATA5,5,2,2,4,5,5,2,4,5,5,2,4,4,5,5 
4940 DATA13 

4950 DATAO,1,0,3,6,0,0,0,0,0,0,6,3,0,1,0 
4960 DATAO,6,0,3,1,0,0,0,0,0,0,1,3,0,6,0 
4970 DATAO,1,0,3,6,0,0,0,0,0,0,6,3,0,1,0 
4980 DATAO,1,0,2,6,0,0,0,0,0,0,6,2,0,1,0 
4990 DATAI,0,3,0,0,0,0,6,6,0,0,0,0,3,0,1 
5000 DATA21 

5010 DATAO,2,5,0,5,0,0,2,2,0,0,5,0,5,2,0 
5020 DATAO,5,2,0,5,0,0,2,2,0,0,5,0,5,2,0 
5030 DATAO,2,5,0,5,0,0,5,2,0,0,2,0,5,2,0 
5040 DATAO,2,5,0,5,0,0,2,2,0,0,5,0,5,2,0 
5050 DATAO,5,2,0,2,0,D,5,5,0,0,2,0,2,5,0 
5060 DATA5 

5070 DATAI,3,4,6,3,3,4,6,4,4,4,6,6,6,6,6 
5080 DATAI,3,4,6,3,3,4,6,4,4,4,6,6,6,6,6 
5090 DATAI,3,6,4,3,3,6,4,6,6,6,4,4,4,4,4 
5100 DATA6,4,3,1,4,4,3,1,3,3,3,1,1,1,1,1 
5110 DATAI,4,3,6,4,4,3,6,3,3,3,6,6,6,6,6 
5120 DATA5 

5130 DATA5,4,3,0,4,3,0,3,3,0,3,4,0,3,4,5 
5140 DATAS,4,3,0,4,3,0,3,3,0,3,4,0,3,4,5 
5150 DATAO,3,4,5,3,0,3,4,4,3,0,3,5,4,3,0 
5160 DATAS,3,4,0,3,4,0,3,4,0,3,4,0,3,4,5 
5170 DATA4,5,3,0,5,3,0,3,3,0,3,5,0,3,5,4 
5180 DATAO 
5190 DATAO ■ 


50 




Livres et cassettes pour 



/ 

k 

f 




/ 

L 




— Un jeu d’arcade 
en langage machine 
sur un thème que 
personne n 'avait osé 
aborder... 

35 F 


110 F 


MICRO-OGtC 

prisante 

A, 

v-p'i 

I* 


ORIC 1 ETATMOS 

i» 'IM MUCU 


35 F 


— Enfin un jeu 
d’arcade en langage 
machine pour les 
tout petits ! 


MKjROLOGtC 


EDITEUR 

ASSEMBLEUR 




CMC I 
ETATMOS 


V"' ' Borl 


80 F 

— Un éditeur- 
assembleur de con¬ 
ception profession¬ 
nelle à un prix sans 
égal. 


BON DE COMMANDE 


Livres 

□ Communiquez avec votre ORIC-1 ATMOS.145 F 

□ Mieux programmer sur OR1C-1 et ATMOS. 110 F 

□ Apprenez l’électronique sur ORIC et ATMOS.110 F 

□ Naviguez sur ORIC et ATMOS. 45 F 

Ci-joint en règlement un chèque de.F + 10 % de port. 


A retourner aux Editions SORACOM — Le Grand Logis — 10, avenue du Général de Gaulle, 35170 BRUZ. 
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Cassettes 

□ Poopy .35 F i 

□ Water Panic .35 F J 

□ Editeur-Assembleur.80 F i 
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N ous avons publié dans THEORIC un premier programme 
permettant le transfert de fichiers du MICRODISC vers 
le JASMIN. Voici son complément, capable d'assurer le 
transfert inverse. 


Ce programme permet donc de 
lire des disquettes JASMIN sur 
DISCORIC. Il complète celui que 
vous avez eu précédemment. 
Le programme est écrit en Basic 
pour ORIC-ATMOS et facilement 
adaptable pour ORIC-1 (voir plus 



loin). De plus, l'ordinateur donne 
toutes les instructions nécessai¬ 
res à l'utilisateur, aussi bien sur 
le plan des manipulations des dis¬ 
quettes que des ordres à taper 
pour la sauvegarde sur MICRO¬ 
DISC. 

La présentation du programme a 
été réduite au strict minimum. En 
effet, le programme doit être le 
plus court possible. Les lecteurs 
de THEORIC devront le taper de 
manière à ce qu'il soit rigoureu¬ 
sement identique (pas d'ajout de 
lignes ou de commentaires sous 
peine de OUT OF MEMORY 
ERROR). 

Le TDOS ne donnant aucune indi¬ 
cation en ce qui concerne les 


démarrages automatiques, c'est 
l'utilisateur qui modifiera les 
ordres de sauvegarde en fonction 
des besoins. 

Exemple : le programme propo¬ 
sera toujours une sauvegarde 
finale de la forme : ISAVE 
'TITRE', A# HHHH,E #HHHH 
ou ISAVE'TITRE'. 

C'est l'utilisateur qui rajoutera 
éventuellement la fonction de 
démarrage automatique : 
ISAVE'TITRE',A # HHHH, 
E#HHHH,AUTO 
ISAVE'TITRE',AUTO 
ATTENTION : pour un pro¬ 
gramme Basic, cela marche tou¬ 
jours. Il n'en est pas de même 
pour un programme LM car, dans 
ce cas-là, il faut rajouter, avant le 
programe que l'on veut 'faire 
démarrer, cet autre programme 
LM qui sert à désélecter la RAM 
OVERLAY. 

(ADD. DE DEPART - 7) 

PHP 

(ADD. DE DEPART - 6) 

LDA #02 

(ADD. DE DEPART - 4) 

JSR# 4E6 

(ADD. DE DEPART - 1) 

PLP 

(ADD DE DEPART ) 
PROGRAMME 

Soit sous forme de POKE ; 
POKE ADD. DE DEPART -7 , # 08 
POKE ADD. DE DEPART -6 , # A9 
POKE ADD. DE DEPART -5 , # 02 
POKE ADD. DE DEPART -4 ,# 20 
POKE ADD. DE DEPART -3 ,# E6 
POKE ADD. DE DEPART -2 ,# 04 
POKE ADD. DE DEPART -1 ,# 28 
Puis ISAVE'TITRE'A ADD. DE 
DEPART-7.E ADD. DE FIN.AUTO. 

PRINCIPE 

DE FONCTIONNEMENT 

Comme pour le précédent, le pro¬ 
gramme va vous demander d'in¬ 
troduire la disquette JASMIN puis 
va en donner le catalogue. Deux 
possibilités s'offrent à vous : soit 
consulter la suite du catalogue, 
soit charger un programme en en 
donnant le numéro. 

ATTENTION : il devra s'agir d'un 
fichier programme (TYPE = BAS, 
BIN, CMD, SCR, DAT, TXT) ; il 
ne faudra pas charger de fichier 
à accès séquentiel ou direct que 
seul le TDOS peut comprendre ! 
Le programme va ensuite charger 
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en mémoire le fichier à partir de 
l'adresse #DOO, puis vous indi¬ 
quera toutes les procédures à sui¬ 
vre pour sauver correctement le 
fichier (en fait, le programme les 
affiche sur l'écran puis s'arrête et 
vous rend la main). 

Remarquons que la méthode que 
j'ai employée ici est différente de 
celle de l'autre programme (elle 
est moins "automatique" ; c'est 
parce qu'en fait je ne connais pas 
aussi bien le DOS V1.1 que le 
TDOS). La méthode retenue ici 
est la suivante : le programme va 
d'abord vous demander de sau¬ 
ver le fichier en mémoire. Puis 
vous devrez le recharger à partir 
de sa véritable adresse de départ 
grâce à l'instruction ILOAD 
'TITRE',A AAD. DE DEPART, 
puis le ressauver après avoir 
effacé l'ancienne version à l'aide 
de IDEL'TITRE'. La différence de 
procédure réside donc dans la 
façon de rectifier l'adresse de 
départ. 

Autre remarque : Le fait de 
recharger le fichier que l’on veut 
transférer à partir de sa véritable 
adresse peut ent.aîner l'efface¬ 
ment partiel ou total du pro¬ 
gramme assurant le transfert : on 
veillera à le recharger pour cha¬ 
que nouveau fichier. 

DESCRIPTION 
DU PROGRAMME 

Ligne 8 
Initialisations 
Lignes 10 à 13 

Chargement de la routine de lec¬ 
ture d'un secteur. 

Ligne 20 

Appel sous-programme en 1200. 
Lignes 30 à 90 

Affichage du catalogue JASMIN. 
Ligne 100 

Demande l'option désirée (suite 
du catalogue ou chargement d'un 
fichier). 

Ligne 110 

Teste si le catalogue a une suite. 
Si oui, et si l'utilisateur le 
demande, on va en 30. 

Ligne 11 5 

Signale le début du chargement. 
Ligne 1 20 

Chargement de la première liste 
piste/secteurs du fichier. 

Ligne 130 

Sauve l'adresse de début et la 


longueur du fichier en page 0. 
Ligne 135 

Teste si le fichier n'est pas trop 
long et le signale éventuellement 
à l'utilisateur. 

Lignes 140 à 160 
Chargement du programme. 
Lignes 1 70 à 180 
Charge les coordonnées de la 
prochaine liste piste/secteurs et 
va en 140 si elle existe. 

Ligne 200 

Message signalant la fin du char¬ 
gement. 


Lignes 210 à 280 

Série de PRINT dictant toutes les 

instructions à l'utilisateur. 

Lignes 1100 à 1110 

Sous-programme de lecture d'un 

secteur. 

Lignes 1200 à 1210 
Sous-programme signalant à l'uti¬ 
lisateur qu'il faut introduire la dis 
quette JASMIN. 

ADAPTATION ORIC-1 

1210 CALL#C5F8:RETURN 


S CLS:INK7:PAPERO:HIMEM#CFF:CLEAR 

10 F0RN=#4O0T0#42E:READA:POKEN,A:NEXT 

11 DATA8, #A9, #80, #20, #E6, 4, #28, #20, #15,4,8, #A9, #82. #20. #E6, <t, #28, #60, #EA, #EA 

12 DATA#EA,#A2,4.#BD,#2A,4,#9D,0,#CC,#CA,#DD,#F7,#20,#24,#D4,#EA,#EA,#£A,#60 

13 DATA#EA,#EA,#EA,1,0,1,1,5 
20 CLS:60SUB1200 

30 CLS:PRINT:FRÏNT:PRINT* CATALOGUE’:PRINT:PRINT 
40 P=20:S=2:AD=#BA0C:G0SU31.00 
50 P=PEEK(#BA02) :S=PEEM#BAC3> 

60 FORY=0T013:1FPEEK<#BA04+Y*1B)=#FFTHEN80 

70 PRINTY+1j:FORX=OTC11:PRIN T CHftl(PEEK!#BA07+Y*18+X));:NEXTX 

80 PRINT:NEXTV 

90 IFPO#FFANDSO#CTHENPRINT: PRINT* TAPEZ 0 POUR LA SUITE DU CATALOGUE* 

100 PRINT:INPUT* TAPEZ LE NUMERO DU PGM A CHARGER* ;X: IPX: 140RX<0 T rlEN100 
110 IFX=OANDPO#FFANDSOOTHENPR1NT: PRINT :GOSUBlI00:G0TO50 
115 IFXOOTHENX=X-1:CLS: PRINT: PRINT: PRINT* CHARGEMENT EN COURS ...*:ELSE100 
120 P=PEEK(#EA04+X*1B):S=PEEK(#BA05+X*18î:PGKE9,PEEK(#BA11+X*18):G0SUB1100 
130 AD=#D00 : DOKED, DEEM #BA02 > : D0KE2, DEEN ( #BA04 ) 

135 IFDEEM2)>#A6F0THENPRINT:PRINT*FICHIER TROP LONG*:PING:ST0P 
140 F0RX=6T0254STEP2:P=PEEK(#EAOO+X):S=PEEK!#BA0l+X > 

150 IFP-255ANDS=255THEN200ELSEG0SUB1100 

160 AD=AD+256îNEXTX 

170 P=PEEK(#BAOÛ):S=PEEH(#EAC1) 

180 IF P=255ANDS=0THEN2G0ELSED0KE‘*, AD : AD=#BA00 : GOSUB1100:AD=DEEK<4) :G0T0140 
200 PRINT:PRINT:PRINT*LE PROGRAMME EST CHARGE EN MEMOIRE*:PRINT'ENTRE :*: 

210 PRINT’#D00 ET *HEX$(DEEK<2)+#D00) 

220 PRINT:PRINT" -> MAINTENANT IL FAU T LE SAUVER SUR MICRODISC 

725 PRINT : PRINT*—INTRC*DUi3E2 LA DISKETTE DISCORIC 

230 PRINT:PRINT*-FAIRE l SAVE’TITRE’,A#DOO,E*HEX$(DEEK(2)+#DOO) 

235 PRINT:PRINT*-PLUS 1 LOAD’TITRE’,A * HE <*(DEEK < 0)) 

236 PRINT:PRINT*—PUIS ‘OEL’TITRE’ 

240 PRINT-.PRINT:PRINT* C’EST UN PROGRAMME :*; 

250 IFPEEK(9)=65THENPRINT" BASIC’ElSEPRINT* -ANGAGE MACHINE 

260 IFPEEK(9)=65THEN270ELSEPRINT : PRINT *-PUIS ‘SAVE’TITRE’,A*HEX$(DEEK<ORî, 

261 PRINT*,E*HEX$iDEEK(0)+DEEK(2)) 

262 GOT0280 

270 PRINT:PRINT‘-D0KE#9A,*HEXtiDEEK(0)+l)*:D0KE#9C,*HEX$(D£EK(2)+DEEK(0)+2) 

271 PRINT:PRINT*-)SAVE’TITRE’ 

280 PRINT:PRINT’TERMINE !!*:STÛP 

1100 P0KE#42A,0:P0KE#42B.P:P0KES42C,S:D0KE#42D,AD:D0KE#421.#D424 
1110 CALL#400:RETURN 

1200 PPINT.-PRINT*INTRODUISEZ LA DISQUETTE JASMIN PUIS ~> APPUYEZ SUR UNE TOUC 
HE* 

1210 CALL#C5E8:RETURN ■ 
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JASMIN CALC 

C ertaines fonctions sont absentes de JASMIN-CALC, qui 
seraient très utiles, mais il est très facile de les obtenir par des 
astuces fort simples : 


Fonction Minimum - Maximum 

Soit une série de nombres placés sur la 


Si votre série de nombres est plus importante 
que 3, comme c'est probablement le cas, il 
vous suffira de recopier les formules de 
colonnes C et D par la fonction P en relatif. 
Bien entendu, il est toujours préférable de pla 
cer ces formules de recherche de Minimum- 
Maximum dans les parties cachées du CALC. 
tout en prenant la précaution de ne pas pla¬ 
cer lesdits calculs en bordures extrêmes car 
vous pourriez les perdre par une intempes¬ 
tive FONCTION N ou O, lors de la mise au 
point de vos programmes. 

Vous remarquerez qu'à la case C4 ou B4, on 
se sert d'une valeur de 30000. En fait, ce 
chiffre est choisi pour qu’il soit plus grand ou 
plus petit que les nombres qui constituent la 
série dont on recherche le minimum ou maxi¬ 
mum. 


Fonction J et fonction I 

Quelle différence entre ces deux fonctions ? 
FONCTION J prévoit, à la demande de l'uti¬ 
lisateur, une ou plusieurs boucles de calcul, 
mais à chaque appel de cette fonction, l'ité¬ 
ration de calcul repart à zéro (remise à zéro 
ou RAZ). 

FONCTION I ne remet pas à zéro, mais ajoute 
une boucle ou itération supplémentaire aux 
boucles déjà réalisées. 

Selon les programmes complexes ou plus 
simples et i'emplacement des différents cal 
culs, le nombre des boucles à programmer 
sera plus ou moins grand. C'est ainsi que. 


colonne B, de B4 à B9. Il suffira de se servir 
de la fonction IF. 

Dans la colonne C de C4 à C9, la formule IF 
s'utilisera ainsi : 


pour le programme FACTURE de votre dis¬ 
quette MASTER, deux boucles suffisent, 
alors que pour PROJET1, il est absolument 
nécessaire de réaliser 5 itérations. 

Recherche des 

erreurs de programmation 

La recherche des erreurs de programmation 
est toujours fastidieuse, mais JASMIN-CALC 
résoud ce problème de façon astucieuse. 
En effet, et grâce à FONCTION J. vous remar¬ 
querez que. lors des itérations, des messa¬ 
ges d’erreurs apparaissent en bas d'écran. Si 
vous avez pris la précaution de prévoir au 
moins deux boucles de calcul, le programme 
d'itération de calcul passe outre ces messa 
ges d'erreur souvent provoqués par un cal¬ 
cul fractionnaire dont le diviseur est égal à 
0 . 

Les calculs se poursuivent, et la véritable 
valeur du dénominateur se révélant plus loin, 
à la prochaine boucle, l'erreur n'existera plus 
et le calcul sera réalisé correctement. 

Par contre, si à la fin des boucles de calcul 
une erreur existe encore, le curseur se posi¬ 
tionnera sur la case dont la formule est erro¬ 
née, et le programmeur pourrait ainsi élimi¬ 
ner les erreurs. Ce double système est une 
exclusivité de JASMIN-CALC, et bien des 
tableurs de renom, ne possèdent pas ce 
système et sont obligés, pour les erreurs 
DIVISION PAR ZERO, de programmer lour 
dement les formules de calcul. 


CONTROLE C 

Cette commande bascule permet de placer 
le programme en calcul automatique ou en 
calcul manuel. Dans le cas d’un petit pro¬ 
gramme, comme FACTURE 1. le calcul auto¬ 
matique est possible, mais s'il s'agit d’un pro¬ 
gramme important comme PROJET 1, il 
devient nécessaire de se placer en calcul 
manuel, autrement à chaque insertion de 
nombres, le programme calculerait l'itération 
prévue et l'entrée des données serait fasti¬ 
dieuse par la lenteur des itérations. Nous 
recommandons un calcul en mode manuel et 
deux boucles de calcul au minimum. 


Fiche de paye 

Voici un programme de fiche de paye, qui 
prévoit tout ce qu'il est possible de trouver 
sur un bulletin. 

Tout est prévu dans les calculs comme les 
différents plafonds des tranches A et B, les 
calculs de salaires à temps partiel, les heu¬ 
res normales et supplémentaires, les diffé¬ 
rents calculs de congés payés, soit en nom¬ 
bre de jours ou en proportion des salaires ver¬ 
sés ou autres calculs. Les absences sont faci¬ 
lement défalquées, et les cotisations sont 
déduites selon les différents taux que l'utili¬ 
sateur devra introduire dans le programme, 
car si ces taux sont tous les mêmes pour les 
cotisations de Sécurité Sociale, il n'en est pas 
de même pour les cotisations de retraite sup¬ 
plémentaire, différentes selon chaque entre¬ 
prise. 

Afin de faciliter la tâche des petites entrepri¬ 
ses individuelles, que nous appelons les P-l 
ou Professionnels Indépendants, la Société 
TRAN met à la disposition de sa clientèle un 
module de programme appelé JASMIN 
PAYE, fonctionnant sur CALC et d’un prix 
très raisonnable. 

Ce module comprend une feuille de calcul de 
salaire pour 6 bulletins de salaire, avec édition 
sur imprimante des bulletins et du total de 



g 

C 

MINIMUM 

0 

MAXIMUM 

4 

0 

IF B4< 30000;64,30000 

IF B4> - 30000; B4; - 30000 

5 

20 

IF B5<C4;B5;D4 

IF B5>D4;B5;D4 

6 

10 

IF B6<C5;B6;D5 

IF B6>D5;B6;D4 
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chaque mois. Il est d'ailleurs facile de dou¬ 
bler au tripler ce module. Le système 
comprend un calcul des cotisations URSSAF 
et de tous les calculs d'autres cotisations 
sociales, avec leurs éditions mensuelles, tri¬ 
mestrielles et le cumul annuel, rendant ainsi 
très facile le remplissage des documents offi¬ 
ciels. 


JASMIN-MULTIFICH 
et sa mise à jour 

TRAN s'était engagé à remettre à jour la 
notice de JASMIN-MULTIFICH. 

C'est chose faite et de surcroît de nouvelles 
fonctions voient le jour : 

MULTIFICH sait maintenant calculer et, avec 
les masques d'impression, il devient très 
facile de présenter de différentes façons les 
fiches. C'est ainsi que l'inventaire et les 
valeurs d'inventaire de magasins sont impri¬ 
mables sur une seule ligne pour chaque arti¬ 
cle, avec une présentation impeccable du lis¬ 
ting d'inventaire, grâce à la nouvelle fonction 
de tabulation. 

Il est possible d'obtenir une copie de la fiche 
à l'écran, et le module de calcul incorporé per¬ 
met la sommation des fiches et la moyenne 
des valeurs ainsi sommées. 

Le MAILING est devenu une fonction inté¬ 
grante du programme, et l'édition des éti¬ 
quettes autocollantes est particulièrement 
sophistiquée, puisque l'on peut intercaler des 
sigles tels que M., Mme. ou Sté, ou tout autre 
chaîne de caractères de votre choix, et dans 
l'ordre de votre choix. De plus, les critères 
de sélection sur chaque rubrique permettent 
des possibilités généralement ignorées sur 
des logiciels de haute gamme et de haut prix ! 
La notice, toujours en français, car nous som¬ 
mes Français, et réalisée d'ailleurs sur notre 
EASYTEXT, est disponible : la réactualisation 
de votre JASMIN MULTIFICH est facile, il suf¬ 
fit de nous retourner l'ancienne version avec 
la somme de 120 FF et vous recevrez, par 
retour, la nouvelle version et la nouvelle 
notice à jour. 

A propos, saviez-vous que ce logiciel est 
capable de stocker plus de 10 000 fiches de 
6 rubriques sur un JASMIN 2 têtes, le tout 
en langage machine ? Qui dit mieux et à quel 
prix ? 

D'ailleurs, les utilisateurs représentent une 
palette d'usagers des plus diversifiés : 
commissariats de police, garagistes, cabinets 
immobiliers, d'assurance, banquiers, cabi¬ 
nets médicaux, etc. 


JASMIN et sa clientèle 

Téléphoniquement, nous sommes surchar¬ 
gés, malgré trois lignes de téléphone, mais 
nous sommes toujours heureux de satisfaire 
les nombreuses questions qui nous sont 
posées ; mais s'il s'agit de questions ou 
d'atuces sur des programmes, pourquoi ne 
pas en faire profiter les lecteurs de THEORIC, 
qui, n'en doutons pas, saura faire passer le 
message à travers ses pages ? 


Copie de sauvegarde 
des logiciels TRAN 

Dans les pages de garde des notices, sous 
précautions importantes, il est conseillé de 
faire une copie de sauvegarde (BKP). 

Il ne faut pas s'étonnner si cette copie s'ar 
rête avant la 40* piste. 

En fait, la copie est bien réalisée et vous 
devez reprendre la main par appui sur les bou¬ 
tons RESET et BOOT. 


FEUILLET 


KOI S DE = 'IJÛVL‘16RE 1935 


1 BULLETIN K PAYE 

Mois du ûl.11.£5 au 38.11.1935 

IBM PRENOM sCURANBAL Marcel 
ADRESSE =>230. flv.du Colle) du 

Fetit Paire 

C. PÜST VILLE:$3650 LE CAHMET 
FONCTION =>Coap1atle 

DATE ECRIE «.'CADRE 


SALAIRE NET 10029.23 

INDEMNITES 

DIVERS 

ACOMPTE 

DIVERS 


ET A PAïEft Francs 12229.23 


EKPL.: T.R.A.N 33 IMPASSE SLEftlOT 


33120 LA GARDE 


Tel 94 21 19 38 


Mo SIRET 32793513120017 AFE 2913 
Mo URSSAF VAS 4A26O016 


Tfi A 
TR B 
TF: C 
MOIS,'HEUR 


9030.00 

2432.34 

C.00 

0.00 


HOJS/HEUR 

MÜIS.'HEUR 

M0IS/HEUR 


FORMULER 


0.00 

0.00 

0.00 

-24497.141 


[H4=0 
DI 5=0 

B16=IF 614=0;169:614 
DI 6=4700 


COEFFICIENT 1 50 

FRANCS 

■ 

y i/=a 

H. S/S =>1.56.0 

2.65.513.012 



D17=-D16*B17/B16 

Si Tenps Partiel 

Heures/Mois 

0.00 


613=0 

Si a F HEURE TAUX HùftAIF£=> 

0.00 

II 

D13=IF DI5=0;693;093 

SALAIRE DE BASE 

169.00 H. 

6700.00 


619=0 

DEDUCTION HEURE 

8.00 H. 

-317.16 


D19=IF 615=0:694:094 

HEURES NORMALES 

0.00 H. 

0.00 

■ 

620=0 

H. SUFPL. a 251 

0.00 H. 

0.00 


620=IF 615=0;695;095 

H. SUPPL. a 50+ 

O.ÛO H 

0.00 


621=0 

H. Sm.a 103X 

0.00 H. 

3.00 

M 

PRIMES 




621=IF D15=0;B96;C96 

[.PAYES 1/12 de 

0.00 Fr 

0.00 


623=0 

ou libre de MR 

24.00 J. 

5360.00 

• 

623=0.1*623 

soit du 1/11/85 

au 19/11/35 



624=24 

[.PAYES autre calcul 



624=616*624/30 




n 

B29=9060 

Plafond 

LEGAL 

MODULE 


D29=B29*B16/169 

Tranche A 

9060.08 

9Oi>O.O0 


630=36240 

Tranche B 

36240.00 

34240.00 

■ 

630=630+616/169 

SALAIRE BRUT 


11742.34 



RETENLES 

ï 



D31=S« D!6;D27 

AS. MAL.Tfi A+B 

5.60 

657.60 

n 

633=5.4 

AS. VIEIL.Tfi A 

5.78 

516.42 


633=633*631/100 

AS. CHOU.Tfi A 

2.12 

192.07 



AS. ÎHÛM.Tfi B 

2.62 

70.29 

■ 

634=5.7 

RETRAITE TR A 

1.34 

166.70 


634=634*637*0.01 

RETRAITE TR B 

4.12 

110.53 


635=2.12 




n 

635=635+687*0.0! 

RETRAITE TR C 

0.00 

0.00 


636=2.62 




« 

636=636*633*0.01 

TOTAL RETENUE 


1713.61 


637=1.34 


B37=637*BS;7*d.01 
P3S=4.12 • 
033=638*653*0.01 
640=0 

140=640*639*0.01 

D43=SM D33;D42 

D45=D31-D43 

D52=SM B45;D51 

637=îF D31<=D29;D31;D29 

633=IF 631<=629;0;097 

639=IF 031<=D33;0:697 

693=016+613/169 

093=615*618 

694=1.25*D16*Bl9/169 

C94=l.25+015+619 

695=1.5*018*628/169 

095=1.5*015+620 

696=2+016+621/169 

094=2*015+321 

697=031-033 

097=031-02? ■ 



EPARGNE foi 
LOGEMENT 


SUITE 




Jean-Marc BREILLOT, auteur du 
programme "Epargne Loge¬ 
ment" publié dans THEORIC n° 
14, nous communique les quel¬ 
ques adaptations suivantes, qui 
devront être appliquées par les 
titulaires de plans récents. 

Le taux de ce placement a été 
modifié le 1 er juillet 1 985. 

Le programme paru dans THEO¬ 
RIC n° 14 intéresse les person¬ 
nes ayant un Plan d'Epargne 
Logement à 9 %. Les informa¬ 
tions ci-dessous permettent 
d'adapter le programme aux 
Plans d'Epargne Logement à 
7,50 % et éventuellement à 
10 %. 


PLANS "EPARGNE 
LOGEMENT" OUVERTS 
DEPUIS LE 01.07.85 

Modifications à apporter au pro¬ 
gramme : 

— taux du placement 7,50 % 
(ligne 1 600), 

— taux du prêt 6,45 % (ligne 
1670). 

Ligne 200 : DEF FNM(B) = (X* 
0,26137760) + 

(Y*7,51936968) 

Ligne 400 : DEF FNM(C) = (X* 
0,17425173) + 

(Y*5.01291312) 

Modifications lignes 550 à 563 
(tableau 1). 


PLANS OUVERTS 
ENTRE LE 15 JUIN 1983 
ET LE 14 AOUT 1984 

Modifications à apporter au pro¬ 
gramme : 

— taux du placement : 10 % 
(ligne 1600), 

— taux du prêt : 8 % (ligne 
1670). 

Ligne 200 : DEF FNM(B) = (X* 
0,366306) + (Y* 10,337709) 
Ligne 400 : DEF FNM(C) = (X* 
0,244204)+ (Y*6,891806) 
Modifications lignes 550 à 563 
(tableau 2). 


K 

2 

3 

— 

4 

— 

5 

6 

7 

8 

9 

10 

11 

12 

TV 

50.863 

34.107 

25.561 

20.380 

16.905 

14.412 

12.537 

11.077 

9.908 

8.950 

8.152 

BD 

2.260 

1.042 

0.603 

0.397 

0.282 

0.212 

0.166 

0.134 

0.111 

0.094 

0.081 

K 

13 

14 

15 

1 Nouveaux coefficients : Plan à 7.5 %. Taux du prêt : 6.45 %. 

TV 

7.477 

6.898 

6.397 

BD 

0.070 

0.062 

0.055 


K 

2 

.3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

TV 

38.433 

25.712 

19.225 

15.294 

12.658 

10.768 

9.348 

8.242 

7.357 

6.633 

6.030 

5.521 

5.084 

BD 

1.733 

0.802 

0.467 

0.308 

0.220 

0.166 

0.131 

0.106 

0.088 

0.075 

0.064 

0.056 

0.050 

K 

15 

IMPORTANT : Lorsque des modifications concernant les taux sont apportées aux Plans Epar¬ 
gne Logement", elles ne concernent pas les plans déjà ouverts. Un plan ouvert au taux de 9 % 
restera à ce taux. 

TV 

4.707 

BD 

0.044 


2 Ce tableau concerne les plans à 10 %. Taux du prêt : 8 %. 
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ARCADIE : INFERNO et VICKY le Jardinier 

Voici deux nouveaux /eux d'ancadl de qualité poun Onlc et A {moi : Gnaphlimti, iom et vltmc 
icniatlonneli. 

Poun compléter le tableau - c'e-s t le cai de le dîne - lnien.no voui pnopoie un véritable 
édit eut penmettant de modifier le jeu à votne convenante. 


TORTUE LOGIC 

Bail iun lei Idéei eaentlellei du LOGO, TORTUE LOGIC eit un nouveau langage poun votne mlcno- 
ondlnateun penmettant la enéatlon graphique et muilcale évoluée et l'appnentlnage de la 
programmation poun lei enfanti. 

Comme en LOGO, TORTUE LOGIC met à votne dlrpoiltlon 64 " pnlmltlvei" voui penmettant de cnéen 
voi pnopnei "pnoeédunei", de lei exécuten, lei éditer, lei iauveganden. Muilquei et dealni 
cnééi peuvent étne utlllréi dam d'autnei pnognammei. 


ATLANTIS 

Un gnand jeu d'aventune graphique et ioui-manln. I /oui aunez beioin de toute votne 
Intelligence, d'ingénloiité, d'aitucei, et d'un bon icaphandne poun pantin, à la découverte et 
néioudne l'énigme de l'Atlantide. 

Ullle dangem voui guetteront dam cette recherche d'Atlantli, la cité légendaire engloutie 
SI voui réuniriez, voui tnouverez, peut-étne, nlcheae, gloire et liberté. 


MOTS CROISES 

Ce logiciel poun le molm original voui propoie de néioudne 120 gnlllei de moti cnoliéi ! 

De plui II comporte un programme d'aalitance à la création voui permettant de cnéen, voui- 
méme dei gnlllei et de lei iauveganden. 

Le jeu comporte deux niveaux de dlfflcultéi : avec ou ram lei caiei nolnei. 


FORMULE 1 

EcxiX 100 i en langage. machine, voici. un nouveau jeu d*action : un 4upzn.be logiciel, de coun - 
te automobile en 3 dimension *. Paysage défilant, vision 3 dimension*, animation tonoxe, 31 
niveaux de jeu, dépendant du cixcuiX, de la vitette moyenne impotée, nombre d* advextaixet. 

Rien ne manque à ce logiciel exceptionnel qui vient xenouvelzA la gamme de jeu poux Oxic. 

Pour recevoir le nouveau catalogue COBRA SOFT, écrivez en 
joignant 2 timbres à COBRA SOFT B.P. 155 71104 CHALON S/S 




INFORMATIQUE 
E T 

NATURE 


Tél 90 95 20 04 R 0 U 
Serveur 90 95 21 00 1 


TE DE CAVAILL0N 
3440 CABANNES 


ÛRIC ♦ JASMIN 
Pour vous aider à 

* travailler sur dise 

* DEPLACER le TD0S se 

trouvant en 1400 

* lire» lister» modifier 

ou désassembler les 
secteurs composants vos 
programmes 

* lancer vos programmes par 

un numéro 

* RECUPERER des disquettes 

endommagées... 

nous avons créé : 


EASYDISK = 250 F 


Ultra rapide en langage machine 


OFFREZ A VOTRE ATM0S LE SERVEUR QU’IL HERITE 
98 nouvelles instructions 


MS-ATM0S 


500 F 


TOUT EST REALISABLE 

dessins» graphismes» animations» répondeur téléphonique 
messageries (dialogues» boites aui lettres)» publicité 
catalogues de produits» prises de commandes 
petites annonces» informations» jeun... 

(sur disquette» Jasmin ou Discoric» et modem DTL2000+) 


* * * 


CES MEMES SERVICES 
avec seulement le MODEM du MINITEL 
c’est 


0RIC-1/ATMQS 
+ 

MINITEL 
COPYTEL !! 

^INDISPENSABLE » ce logiciel 

* MEMORISE les pages 
reçues sur Minitel 
* les RELIT et les STOCKE 
sur disquettes 
* les IMPRIME avec texte et 
GRAPHISME INTEGRAL 

e t x 

ALLEGE sensiblement vos n, 
de TELEPHONE 


HS-TEL 


700 F 


COPYTEL 


250 F 


cordon + 50 F 

disquette Jasmin ou Discoric 


EN PROMOTION JUSQU’AU 28-2-86 : JASMITEL 300 F ou HULTITEL 150 F 


Catalogue des logiciels sur demande 














PETITES ANNONCES 


La plaça réservée aux patitai annonces est 
limités. En conséquence, celles-ci passent 
dans leur ordre d'arrivée. Par contra, les peti¬ 
tes annonces ferielues sont systématique- 
ment rejetées... De même, comme il est peu 
probable qu'il existe des "généreux dona¬ 
teurs" de matériels ou de logiciels, les peti¬ 
tes annonces faisant appel é ces philantro- 
pes ne seront insérées que si la place libre 
le permet. 

Seront refusées toutes les annonces visant 
à vendra ou échanger des listes ou copies de 
logiciels non garantis "d'origine", ainsi que 
toute annonce incitant au piratage. 

En conséquence, réfléchissez bien avant 
d'envoyer vos textes. 

Les petites annonces doivent impérativement 
nous parvenir sur la grille (découpée ou pho- 
tocopiéel. le texte étant rédigé A raison d'un 
caractère par caea. 

Enfin, toute annonce non accompagnée de 
timbrée ne sera pas insérée. 

Vends ORIC-1 48 k + ts câbles IPéritel » alim. + 
modul.i + 30 logiciels K7. Le tout : 1200 F. Micro- 
dise 11 20 prog disql + transfo. Le tout : 2300 F. 
Piere PEREZ. tél : 48.23.66.50. 

Vends EXL 100 + Tennis + WW3 + un livre + 
2 joystick + interface Pêritel/UHF : 1990 F (4000 F 
neuf) M BOTHOREL. 9 rue des Tulipes. 29142 LE 
FAOU. 

Vends ORIC 1 + JASMIN • dise de jeux + utilitai¬ 
res » revues + livres + cordon alim. + Perbret. J.C. 
DIBAT, 10 rue des Frères Camors. 64000 PAU. 

Achète interface ou plan permenant traiter signaux 
Canal + (pour ORIC et ATMOS7. P. NAGOT. 
54115 FAVIERES. tél.: 83.25.12.05. 

Vends Modem DTL 2000 neuf s. garantie : 1000 F. 
François MELLE. 30 rue Fays. 94300 VINCENNES. 
tél.: 43 28.41 38 et 48.08.74.04 

Cherche personnes intéressées par la création d'un 
club ORIC dans les Yvelines Tél 34 61 20.73 le 
soir. 


Vends 100 F cassette 450 pages Hires Apple 
converties ORIC grâce Soft perso. W. PRODO- 
RUTT. 51 av Capreaux, 95400 ARNOUVILLE. 

ATMOS cherche contacts our échanges divers. 
Pierre DELAVAQUERIE. 2 ch. du Moulin. 60120 
ESQUENOY. tél. 44 07.05.54 de 17 à 20 h. 

Cherche THEORIC 5, 7. 8 9. 10. 11, 12.leséchan 
gérais contre 2 logiciels chacun. Ch. QUINNEAU, 
Fourgeaud, 24700 MONTPON MENESTROL. 

Vends ORIC ATMOS Péritel (700 F) et microdrive 
ORIC très peu servi 11800 F). Tél.: 43.87.30.85 
le soir. 

Vends lecteur Jasmin + Easytext + Jasmin Mul- 
tifich + livre TDOS + disquettes ; 2000 F. M. 
NEUSBURGER. 47 rue Espagne. 31100 TOU¬ 
LOUSE. 

ORIC-1 + Jasmin cherche prog. teux et utilitaires 
è télécharger par Modem sur circonscription Ver 
sailles. Tél.: 30.43.01.06. 

Vends ATMOS + GP 50A + magnéto K7 + 20 
logiciels d'origine * diverses revues et manuels : 
3800 F. Tél.: 91 41 39.57. 

Vends ATMOS + microdrive ORIC + alimentation 
+ ts cordons + Péritel f- K7 + nbx programmes 
K7 + disques + nbx ouvrages : 2000 F. Tél.: 
45.76.22.04. 

Vends ORIC-1 + nbx livres + nbx programmes : 
900 F. Tél.: 87.62.58 41. Daniel PAX, 13 rue D. 
Noncelles. 57000 METZ. 

Vends ORIC ATMOS et Jasmin 2 + MCP 40 + 
interface )oystick programmable + 200 logiciels. 
Possibilité vente séparée. Thierry HOUZE. tél.: 
20.35.59.65 


Vends CBS + DKEY + Kong : 500 F. Zaxon : 
150 F. Interf + poignée ORIC : 200 F. Stylo opti¬ 
que : 250F Tél 78 32 62 43après 19h. Recher 
che ROM ORIC 

Vends ATMOS + magnéto K7 Philips D6620 + 17 
jeux K7 (Aigle d'Or. etc ! entre 2000 et 3000 F à 
débattre. Tél.: (1) 45.74.51.33. 


Vends JASMIN + disquettes (150 logiciels) Prix 
é débattre. Demander Jérôme au 48 74.49.86. 

Une affaire ATMOS + 300 softs sur K7 + adapt 
périt. + cordons + magnéto gratis. Le tout état 
neuf : 1800 F. Tél.: 93.34.56.59. 

Vends 2 joysticks + interface manette » K7adap 
ter 1: 300 F. Sébastien GIRAUD, 7 rue Pierre Puget. 
66000 PERPIGNAN, tél.: 68 66.54.52. 

Vends ATMOS 48 k (10.841 complet Péritel + 
magnéto + livres + logiciels : 1200 F. Joèl LERE- 
NARD. 22 rue de la Ruée. 35230 ST. ERBLON 

Vends ORIC-1 48 k + Péritel + cordon alim. + 
manuels divers, tbe. Tél.: 34.64 42.68 le soir ou 
42.65 92.25 HB 

Vends ORIC-1 48 k + cordons + prise Péritel + 
leçons Basic + moniteur + si besoin RTTY, CW. 
SSTV le tout sur cassettes : 1200 F. Tél.: 
56.62.00.62. 


Vends pour APPLE Ile imprimante état neuf OKI 80 
avec sa carte parallèle : 2200 F. M. VERNA. 25 rue 
Coquillière. 75001 Paris. 

Vends 2 joysticks : 80 F. Gestion de fichiers et des 
jeux Cherche Amstradiens. E. CHAIGNEAU. 
78310 MAUREPAS. tél : 30.50.89.26. 

Vends Aigle Or, Diamant Ile Maudite. 3D Fonbus. 
Starter 3D Détective Story, Secret Tombeeu : 
400 F. Tél.: 68 96.39.23 après 19h45. 

ATMOS éch. prog. cassette disquette ORIC. Vends 
synthé + cordon. Fabrice FOUCHER, La Roderie. 
44380 BOUAYE, tél.: 40.65.43.06 

ATMOS -f Jasmin : échange nombreux logiciels. 
Cherche VOTREX. Luc CANTET, BP 76. 57026 
METZ CEDEX 1 

Vends ORIC ATMOS Péritel (700 Fl et microdrive 
ORIC très peu servi (1800 F). Tél.: 43 87.30 85 
(le soir). 

Vends lecteur Jasmin + Easytext + Jasmin Mul 
tifich + livre TDOS + disquettes : 2000 F MEUS- 
BURGER. 37 route Espagne. 31100 Toulouse. 


ANNONCEZ-VOUS! 

les petites annonces et les messages 



•o Coupon à renvoyer accompagné de 3 timbres à 2,20 F à : 

^ SORACOM, 10 Avenue du Général de Gaulle, 35170 BRUZ 
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tour vous 



Catalogue Janvier 86 


louvea« te : 


La réception des satellites météo 

Loïc Kuhlmann 

Photos, schémas, montages 

Comment réaliser une station 145 F 

MEGAHERTZ broché n° 3 

(de 14 é 19) 70 F 


COLLECTION POCHE 


Jouez avec le M05 

E. DUTERTRE 
Collection poche 


Communiquez avec AMSTRAD 

0. B0N0M0 et E. DUTERTRE 


Mieux programmer sur AMSTRAD 

M. ARCHAMBAULT 



INFORMATIQUE 


45 F 

Communiquez avex ZX81 

E. DUTERTRE et D. B0N0M0 


90 F 

Programmes et interfaces 

2* édition 

90 F. 


Programmes et Interfaces 

145 F 

85 F 

Mystères du Laser 

Denis BOURQUIN 

Connaître à fond sa machine 

148 F 


Jouez avec Hector 
E. DUTERTRE 
Jouez avec Aquarius 

L. GENTY 

Naviguez sur ORIC et ATMOS 

E. JACOB et J. PORTELLI 

Extensions du ZXB1 

E. DUTERTRE 

Jouez avec AMSTRAD 

KERLOCH 

MEGAHERTZ Hors Série 

Informatique 


48 F 
45 F 
45 F 
48 F 
48 F 
30 F 


DETENDEZ VOUS 
AVEC UN LIVRE 


TECHNIQUE 


Propagation des ondes, tome 1 

Serge CANIVENC, F8SH 
Un univers à découvrir 


165 F 


Propagation des ondes, tome 2 

Serge CANIVENC, F8SH 

Cet ouvrage encore plus important 

traite des tous les modes de 


Mystères d'Alice ou la pratique du 6803 
A. B0NNEAU0 

Une des meilleures critiques de la presse 151 F 

Mieux programmer sur ATMOS 
M. ARCHAMBAULT 

Tout un programme 110 F 

Interfaces pour ORIC-1 et ATMOS 

M, LEVREL 

Rendre son ORIC encore plus 

performant 59 F 


3 p’tits mousses et puis s'en vont 

Tout en couleur 


139 F 


Expédition Pôle Nord magnétique 
En couleur 


50 F 


propagation en UHF 

253 F 

Apprenez l'électronique sur ORIC ATMOS 

Technique de la BLU - 2* édition 


P. BEAUFILS 


G. RICAUD, F6CER 


Mieux voir les phénomènes électroniques 110 F 

Approche pratique de la BLU 

95 F 

Programmes pour ORIC et ATMOS 


Concevoir un émetteur expérimental 

E. JACOB et J. PORTELLI 

50 F 

P. LOGLISCI 


Plus loin avec le X07 


Concevoir soi-même son émetteur ! 

Synthétiseurs de fréquence 

M. LEVREL 

Se familiariser avec les 
nouvelles techniques 

69 F 

19c c 

Michel GAUTIER 

Un titre pour un programme ! 

85 F 


r 


Interférences radio — des solutions 

F. MELLET et K. PIERRAT 

Des solutions à vos problèmes 


( 

Cj/I 

V\/\ / * * * 

de brouillage 

35 F 




Transat Terre Lune 
Préface de 0. BAUDRY 
La Guerre des Ondes 
La Baule Dakar 

Histoire et caractéristiques 
des bateaux 

Bande dessinée Jacques CARTIER 
Prix réel : 315 F 

OFFRE EXCEPTIONNELLE 
POUR LIRE OU OFFRIR 
SOIT 6 LIVRES POUR LE 
PRIX DE DEUX : 189 F 


20 F 
20 F 


56 F 
30 F 


Télévisions du monde 

P. G000U 

Un catalogue de mires 
et une longue expérience 
mis à votre disposition par 
l'auteur 

Le radioamateur et la carte QSL 

Préfixes et QSL-managers et 
bureaux dans le monde 
72 pages 

QSO en radiotéléphonie 
français-anglais 

L. SIGRANO 

Un aide-mémoire pour des 
QSO plus faciles 
Cours de lecture au son 
Les cassettes avec livret 




i louvea 




110 F 


, pA R 

\ r 


Réédition des programmes du livre 

Communiquez avec votre ZX81 


150 F 


15 F 


Cassette programmes Communiquez avec AMSTRAD 
Disquette programmes Communiquez avec AMSTRAD 


190 F 
250 F 


Cassette programmes Communiquez avec ORIC et ATMOS 190 F 


25 F 


195 F 


Adressez vos commandes A : 
SORACOM, La Haie de Pan, 35170 BR UZ 

(Règlement comptant à la commande + port 10 %). 
































Ventes Informations Services Micro-Ordinateurs 



84, Boulevard Beaumarchais - 75011 PARIS 
métro Bastille ou Chemin Vert 
De 10 H. à 20 H. sauf Dimanche et Lundi 


TEL. : 16 (1) 43.38.60.00 


LA REVOLUTION INFORMATIQUE A LA BASTILLE 



LA BETE A COMMUNIQUER 


(100 % compatible ORIC 1 et ATMOS) 




Cartouche Lecteur Imprimte 

ROM Disk Serie-parallèle 

RAM 

♦ ♦ ♦ 


EN DEMONSTRATION 
CHEZ 

VISMO 



BORNE DE COMMUNICATION (7 logiciels intégrés) 


- Dialogue entre deux Minitels 

- Serveur VIDEOTEXT 

- Créations pages VIDEOTEXT 

- Courrier Electronique 


- Vidéo Répondeur 

- Transmissions entre deux ordinateurs 

- Emulation Minitel 


prix indicatif au 31/12/85 livré avec lecteur de Disk 3 pouces 


NOUVEAU ? CREDITINFORMATIQUE réponse en 48 heures après examen du dossier dans toute le France 

Logiciels + Accessoires pour les appareils cités aux prix VISMO 

NOMBREUX LOGICIELS - PROGRAMMES ET JEUX VISMO 


Pour détaxé 
à l’exportation 
Service Commande 
Express - Crédit 
Réclamations 

TÉLÉPHONE 

4338.60.00 


. S'gnotu'e 


□ Desue rece»o" coia'ogue 
20 f (femDOufsaoie o io t* commonoel 


ccr io.m 

Mono o* *•*'• iO*nl 
Conll« i»meûVI*m#n« 


Ro* g«o'w ' pou' • de >000 < d »tj u . 


Con*»e • JO » 


VISMO EXPRESS: i»(a.tonoont«ou*e'ononce *ow»enco>t»on» >o* craqueta #*oed<»*on œ .o»*e c » o <a •♦ceo’ o'' .v •oto»ONrt 



BON DE COMMANDE t »n,„>q U .iirtiMniri«isMo 

84. Boulevard Beaumarchais 75011 PARIS 

Nom Prénom 

Quantité 

Désignation 

Pin unit T?C 

Prix ’olai TTC J 








1 

Adresse- 




-j 

Ville 





Cooe Postai tei 


1 







































